/ Internet File Formats / InternetFileFormatsCD.bin / text / latex / mac / alpha.6.0.sit / LaTeX / latex 2.09 / latex.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 6c 61 74 65 78 2e | 74 63 6c 00 00 00 00 00 |..latex.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 dc c3 00 | 00 14 6a ac 06 8f df ac |........|..j.....|
|00000060| 06 8f df 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 c5 e9 00 00 |........|........|
|00000080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 23 0d |########|#####.#.|
|000000d0| 23 20 6c 61 74 65 78 2e | 74 63 6c 2c 20 76 65 72 |# latex.|tcl, ver|
|000000e0| 73 69 6f 6e 20 32 2e 30 | 3a 20 20 6d 61 63 72 6f |sion 2.0|:  macro|
|000000f0| 73 20 61 6e 64 20 62 69 | 6e 64 69 6e 67 73 20 66 |s and bi|ndings f|
|00000100| 6f 72 20 4c 61 54 65 58 | 20 75 73 65 72 73 0d 23 |or LaTeX| users.#|
|00000110| 0d 23 20 2d 2d 20 73 65 | 65 20 66 69 6c 65 73 20 |.# -- se|e files |
|00000120| 27 4c 61 54 65 58 20 48 | 65 6c 70 27 20 61 6e 64 |'LaTeX H|elp' and|
|00000130| 20 27 63 6f 6d 6d 61 6e | 64 73 2e 74 65 78 27 20 | 'comman|ds.tex' |
|00000140| 69 6e 20 74 68 65 20 48 | 65 6c 70 20 66 6f 6c 64 |in the H|elp fold|
|00000150| 65 72 0d 23 0d 23 23 23 | 23 23 23 23 23 23 23 23 |er.#.###|########|
|00000160| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000170| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000180| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000190| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000001a0| 23 23 0d 23 0d 23 20 76 | 65 72 73 69 6f 6e 20 31 |##.#.# v|ersion 1|
|000001b0| 2e 31 20 61 6e 64 20 31 | 2e 32 20 28 31 31 2f 31 |.1 and 1|.2 (11/1|
|000001c0| 30 2f 39 32 29 20 62 79 | 20 52 69 63 68 61 72 64 |0/92) by| Richard|
|000001d0| 20 54 2e 20 41 75 73 74 | 69 6e 20 28 61 75 73 74 | T. Aust|in (aust|
|000001e0| 69 6e 40 65 65 63 73 2e | 75 6d 69 63 68 2e 65 64 |in@eecs.|umich.ed|
|000001f0| 75 29 0d 23 20 76 65 72 | 73 69 6f 6e 20 32 2e 30 |u).# ver|sion 2.0|
|00000200| 20 28 31 2f 32 34 2f 39 | 33 29 20 62 79 20 54 6f | (1/24/9|3) by To|
|00000210| 6d 20 53 63 61 76 6f 20 | 28 74 72 73 63 61 76 6f |m Scavo |(trscavo|
|00000220| 40 73 79 72 2e 65 64 75 | 29 0d 23 0d 23 20 49 66 |@syr.edu|).#.# If|
|00000230| 20 79 6f 75 20 6d 61 6b | 65 20 69 6d 70 72 6f 76 | you mak|e improv|
|00000240| 65 6d 65 6e 74 73 20 74 | 6f 20 74 68 69 73 20 66 |ements t|o this f|
|00000250| 69 6c 65 2c 20 70 6c 65 | 61 73 65 20 73 68 61 72 |ile, ple|ase shar|
|00000260| 65 20 74 68 65 6d 21 0d | 23 0d 23 23 23 23 23 23 |e them!.|#.######|
|00000270| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000280| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000290| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000002b0| 23 23 23 23 23 23 23 0d | 0d 73 6f 75 72 63 65 20 |#######.|.source |
|000002c0| 22 24 48 4f 4d 45 3a 54 | 63 6c 3a 53 79 73 74 65 |"$HOME:T|cl:Syste|
|000002d0| 6d 43 6f 64 65 3a 73 6d | 61 72 74 2e 74 63 6c 22 |mCode:sm|art.tcl"|
|000002e0| 0d 0d 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |..######|########|
|000002f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000300| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000310| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000320| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0d |########|#######.|
|00000330| 23 0d 23 20 46 6c 61 67 | 73 20 61 6e 64 20 56 61 |#.# Flag|s and Va|
|00000340| 72 69 61 62 6c 65 73 2e | 0d 23 0d 23 23 23 23 23 |riables.|.#.#####|
|00000350| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000360| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000370| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000380| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000390| 23 23 23 23 23 23 23 23 | 0d 0d 73 65 74 20 74 72 |########|..set tr|
|000003a0| 75 65 20 31 0d 73 65 74 | 20 66 61 6c 73 65 20 30 |ue 1.set| false 0|
|000003b0| 0d 23 20 73 65 74 20 69 | 6e 73 65 72 74 4c 61 74 |.# set i|nsertLat|
|000003c0| 65 78 50 61 72 61 6d 65 | 74 65 72 20 24 74 72 75 |exParame|ter $tru|
|000003d0| 65 0d 23 20 73 65 74 20 | 6e 6f 49 6e 73 65 72 74 |e.# set |noInsert|
|000003e0| 4c 61 74 65 78 50 61 72 | 61 6d 65 74 65 72 20 24 |LatexPar|ameter $|
|000003f0| 66 61 6c 73 65 0d 0d 23 | 20 46 6c 61 67 73 3a 0d |false..#| Flags:.|
|00000400| 6e 65 77 4d 6f 64 65 56 | 61 72 20 54 65 58 20 6f |newModeV|ar TeX o|
|00000410| 70 74 69 6f 6e 49 73 4d | 65 74 61 20 24 66 61 6c |ptionIsM|eta $fal|
|00000420| 73 65 20 31 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |se 1.new|ModeVar |
|00000430| 54 65 58 20 75 73 65 42 | 6f 78 4d 61 63 72 6f 20 |TeX useB|oxMacro |
|00000440| 24 74 72 75 65 20 31 0d | 6e 65 77 4d 6f 64 65 56 |$true 1.|newModeV|
|00000450| 61 72 20 54 65 58 20 64 | 65 6c 65 74 65 4f 62 6a |ar TeX d|eleteObj|
|00000460| 65 63 74 4e 6f 69 73 69 | 6c 79 20 24 74 72 75 65 |ectNoisi|ly $true|
|00000470| 20 31 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 54 65 | 1.newMo|deVar Te|
|00000480| 58 20 64 65 6c 65 74 65 | 45 6e 76 69 72 6f 6e 6d |X delete|Environm|
|00000490| 65 6e 74 4e 6f 69 73 69 | 6c 79 20 24 74 72 75 65 |entNoisi|ly $true|
|000004a0| 20 31 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 54 65 | 1.newMo|deVar Te|
|000004b0| 58 20 77 6f 72 64 57 72 | 61 70 20 24 74 72 75 65 |X wordWr|ap $true|
|000004c0| 20 31 0d 6e 65 77 4d 6f | 64 65 56 61 72 20 54 65 | 1.newMo|deVar Te|
|000004d0| 58 20 75 73 65 53 74 61 | 74 75 73 42 61 72 20 24 |X useSta|tusBar $|
|000004e0| 74 72 75 65 20 31 0d 0d | 23 20 56 61 72 69 61 62 |true 1..|# Variab|
|000004f0| 6c 65 73 3a 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |les:.new|ModeVar |
|00000500| 54 65 58 20 62 6f 78 4d | 61 63 72 6f 4e 61 6d 65 |TeX boxM|acroName|
|00000510| 20 22 42 6f 78 65 64 45 | 50 53 46 22 20 30 0d 6e | "BoxedE|PSF" 0.n|
|00000520| 65 77 4d 6f 64 65 56 61 | 72 20 54 65 58 20 66 75 |ewModeVa|r TeX fu|
|00000530| 6e 63 45 78 70 72 20 7b | 5c 5c 28 28 73 75 62 29 |ncExpr {|\\((sub)|
|00000540| 2a 73 65 63 74 69 6f 6e | 7c 63 68 61 70 74 65 72 |*section||chapter|
|00000550| 29 28 5c 5b 2e 2a 5c 5d | 7c 5c 2a 29 3f 7b 28 5b |)(\[.*\]||\*)?{([|
|00000560| 5e 7b 7d 5d 2a 29 7d 7d | 20 30 0d 6e 65 77 4d 6f |^{}]*)}}| 0.newMo|
|00000570| 64 65 56 61 72 20 54 65 | 58 20 70 72 65 66 69 78 |deVar Te|X prefix|
|00000580| 53 74 72 69 6e 67 20 7b | 25 20 7d 20 30 0d 6e 65 |String {|% } 0.ne|
|00000590| 77 4d 6f 64 65 56 61 72 | 20 54 65 58 20 77 6f 72 |wModeVar| TeX wor|
|000005a0| 64 42 72 65 61 6b 20 7b | 28 5c 5c 29 3f 5b 61 2d |dBreak {|(\\)?[a-|
|000005b0| 7a 41 2d 5a 30 2d 39 5d | 2b 7d 20 30 0d 6e 65 77 |zA-Z0-9]|+} 0.new|
|000005c0| 4d 6f 64 65 56 61 72 20 | 54 65 58 20 77 6f 72 64 |ModeVar |TeX word|
|000005d0| 42 72 65 61 6b 50 72 65 | 66 61 63 65 20 7b 28 5b |BreakPre|face {([|
|000005e0| 5e 61 2d 7a 41 2d 5a 30 | 2d 39 5c 5c 5d 7c 2e 5c |^a-zA-Z0|-9\\]|.\|
|000005f0| 5c 29 7d 20 30 0d 0d 70 | 72 6f 63 20 64 75 6d 6d |\)} 0..p|roc dumm|
|00000600| 79 54 65 58 20 7b 7d 20 | 7b 7d 0d 0d 0d 23 23 23 |yTeX {} |{}...###|
|00000610| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000620| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000630| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000640| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000650| 23 23 23 23 23 23 23 23 | 23 23 0d 23 0d 23 20 55 |########|##.#.# U|
|00000660| 74 69 6c 69 74 79 20 4d | 61 63 72 6f 73 2e 0d 23 |tility M|acros..#|
|00000670| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00000680| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000690| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 0d 0d |########|######..|
|000006c0| 23 20 41 20 62 6f 6f 6c | 65 61 6e 20 66 75 6e 63 |# A bool|ean func|
|000006d0| 74 69 6f 6e 20 77 68 69 | 63 68 20 63 68 65 63 6b |tion whi|ch check|
|000006e0| 73 20 74 6f 20 73 65 65 | 20 69 66 20 74 68 65 72 |s to see| if ther|
|000006f0| 65 27 73 20 61 20 63 75 | 72 72 65 6e 74 20 73 65 |e's a cu|rrent se|
|00000700| 6c 65 63 74 69 6f 6e 2e | 0d 70 72 6f 63 20 69 73 |lection.|.proc is|
|00000710| 53 65 6c 65 63 74 69 6f | 6e 20 7b 7d 20 7b 0d 09 |Selectio|n {} {..|
|00000720| 72 65 74 75 72 6e 20 5b | 73 74 72 69 6e 67 20 6c |return [|string l|
|00000730| 65 6e 67 74 68 20 5b 67 | 65 74 53 65 6c 65 63 74 |ength [g|etSelect|
|00000740| 5d 5d 0d 7d 0d 0d 23 20 | 53 65 6c 65 63 74 20 74 |]].}..# |Select t|
|00000750| 68 65 20 6c 69 6e 65 20 | 63 6f 6e 74 61 69 6e 69 |he line |containi|
|00000760| 6e 67 20 74 68 65 20 69 | 6e 73 65 72 74 69 6f 6e |ng the i|nsertion|
|00000770| 20 70 6f 69 6e 74 2e 0d | 70 72 6f 63 20 6c 69 6e | point..|proc lin|
|00000780| 65 53 65 6c 65 63 74 20 | 7b 7d 20 7b 0d 09 67 6f |eSelect |{} {..go|
|00000790| 74 6f 20 5b 6c 69 6e 65 | 53 74 61 72 74 20 5b 67 |to [line|Start [g|
|000007a0| 65 74 50 6f 73 5d 5d 0d | 09 6e 65 78 74 4c 69 6e |etPos]].|.nextLin|
|000007b0| 65 53 65 6c 65 63 74 0d | 7d 0d 0d 23 20 41 20 62 |eSelect.|}..# A b|
|000007c0| 6f 6f 6c 65 61 6e 20 66 | 75 6e 63 74 69 6f 6e 20 |oolean f|unction |
|000007d0| 77 68 69 63 68 20 74 61 | 6b 65 73 20 61 6e 79 20 |which ta|kes any |
|000007e0| 73 74 72 69 6e 67 20 61 | 6e 64 20 74 65 73 74 73 |string a|nd tests|
|000007f0| 20 74 6f 20 73 65 65 20 | 69 66 0d 23 20 74 68 61 | to see |if.# tha|
|00000800| 74 20 73 74 72 69 6e 67 | 20 63 6f 6e 74 61 69 6e |t string| contain|
|00000810| 73 20 61 6c 6c 20 77 68 | 69 74 65 73 70 61 63 65 |s all wh|itespace|
|00000820| 20 63 68 61 72 61 63 74 | 65 72 73 2e 20 20 43 61 | charact|ers.  Ca|
|00000830| 72 72 69 61 67 65 20 72 | 65 74 75 72 6e 73 20 0d |rriage r|eturns .|
|00000840| 23 20 61 72 65 20 63 6f | 6e 73 69 64 65 72 65 64 |# are co|nsidered|
|00000850| 20 77 68 69 74 65 73 70 | 61 63 65 2c 20 61 73 20 | whitesp|ace, as |
|00000860| 61 72 65 20 73 70 61 63 | 65 73 20 61 6e 64 20 74 |are spac|es and t|
|00000870| 61 62 73 2e 0d 70 72 6f | 63 20 69 73 57 68 69 74 |abs..pro|c isWhit|
|00000880| 65 73 70 61 63 65 20 7b | 61 6e 79 53 74 72 69 6e |espace {|anyStrin|
|00000890| 67 7d 20 7b 0d 09 73 65 | 74 20 6c 65 6e 20 5b 73 |g} {..se|t len [s|
|000008a0| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 24 61 6e |tring le|ngth $an|
|000008b0| 79 53 74 72 69 6e 67 5d | 0d 09 66 6f 72 20 7b 73 |yString]|..for {s|
|000008c0| 65 74 20 69 20 30 7d 20 | 7b 24 69 20 3c 20 24 6c |et i 0} |{$i < $l|
|000008d0| 65 6e 7d 20 7b 69 6e 63 | 72 20 69 7d 20 7b 0d 09 |en} {inc|r i} {..|
|000008e0| 09 73 65 74 20 63 20 5b | 73 74 72 69 6e 67 20 69 |.set c [|string i|
|000008f0| 6e 64 65 78 20 24 61 6e | 79 53 74 72 69 6e 67 20 |ndex $an|yString |
|00000900| 24 69 5d 0d 09 09 69 66 | 20 7b 28 24 63 20 21 3d |$i]...if| {($c !=|
|00000910| 20 22 5c 20 22 29 20 26 | 26 20 28 24 63 20 21 3d | "\ ") &|& ($c !=|
|00000920| 20 22 5c 74 22 29 20 26 | 26 20 28 24 63 20 21 3d | "\t") &|& ($c !=|
|00000930| 20 22 5c 72 22 29 7d 20 | 74 68 65 6e 20 7b 72 65 | "\r")} |then {re|
|00000940| 74 75 72 6e 20 30 7d 0d | 09 7d 0d 09 72 65 74 75 |turn 0}.|.}..retu|
|00000950| 72 6e 20 31 0d 7d 0d 0d | 23 20 49 6e 73 65 72 74 |rn 1.}..|# Insert|
|00000960| 20 61 20 63 61 72 72 69 | 61 67 65 20 72 65 74 75 | a carri|age retu|
|00000970| 72 6e 20 61 74 20 74 68 | 65 20 69 6e 73 65 72 74 |rn at th|e insert|
|00000980| 69 6f 6e 20 70 6f 69 6e | 74 20 69 66 20 61 6e 79 |ion poin|t if any|
|00000990| 0d 23 20 63 68 61 72 61 | 63 74 65 72 20 70 72 65 |.# chara|cter pre|
|000009a0| 63 65 64 69 6e 67 20 74 | 68 65 20 69 6e 73 65 72 |ceding t|he inser|
|000009b0| 74 69 6f 6e 20 70 6f 69 | 6e 74 20 28 6f 6e 20 74 |tion poi|nt (on t|
|000009c0| 68 65 20 73 61 6d 65 20 | 6c 69 6e 65 29 0d 23 20 |he same |line).# |
|000009d0| 69 73 20 61 20 6e 6f 6e | 2d 77 68 69 74 65 73 70 |is a non|-whitesp|
|000009e0| 61 63 65 20 63 68 61 72 | 61 63 74 65 72 2e 0d 70 |ace char|acter..p|
|000009f0| 72 6f 63 20 6f 70 65 6e | 69 6e 67 43 61 72 72 69 |roc open|ingCarri|
|00000a00| 61 67 65 52 65 74 75 72 | 6e 20 7b 7d 20 7b 0d 09 |ageRetur|n {} {..|
|00000a10| 73 65 74 20 65 6e 64 20 | 5b 67 65 74 50 6f 73 5d |set end |[getPos]|
|00000a20| 0d 09 73 65 74 20 73 74 | 61 72 74 20 5b 6c 69 6e |..set st|art [lin|
|00000a30| 65 53 74 61 72 74 20 24 | 65 6e 64 5d 0d 09 73 65 |eStart $|end]..se|
|00000a40| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|00000a50| 24 73 74 61 72 74 20 24 | 65 6e 64 5d 0d 09 69 66 |$start $|end]..if|
|00000a60| 20 7b 21 5b 69 73 57 68 | 69 74 65 73 70 61 63 65 | {![isWh|itespace|
|00000a70| 20 24 74 65 78 74 5d 7d | 20 63 61 72 72 69 61 67 | $text]}| carriag|
|00000a80| 65 52 65 74 75 72 6e 0d | 7d 0d 0d 23 20 49 6e 73 |eReturn.|}..# Ins|
|00000a90| 65 72 74 20 61 20 63 61 | 72 72 69 61 67 65 20 72 |ert a ca|rriage r|
|00000aa0| 65 74 75 72 6e 20 61 74 | 20 74 68 65 20 69 6e 73 |eturn at| the ins|
|00000ab0| 65 72 74 69 6f 6e 20 70 | 6f 69 6e 74 20 69 66 20 |ertion p|oint if |
|00000ac0| 61 6e 79 0d 23 20 63 68 | 61 72 61 63 74 65 72 20 |any.# ch|aracter |
|00000ad0| 66 6f 6c 6c 6f 77 69 6e | 67 20 74 68 65 20 69 6e |followin|g the in|
|00000ae0| 73 65 72 74 69 6f 6e 20 | 70 6f 69 6e 74 20 28 6f |sertion |point (o|
|00000af0| 6e 20 74 68 65 20 73 61 | 6d 65 20 6c 69 6e 65 29 |n the sa|me line)|
|00000b00| 0d 23 20 69 73 20 61 20 | 6e 6f 6e 2d 77 68 69 74 |.# is a |non-whit|
|00000b10| 65 73 70 61 63 65 20 63 | 68 61 72 61 63 74 65 72 |espace c|haracter|
|00000b20| 2e 0d 70 72 6f 63 20 63 | 6c 6f 73 69 6e 67 43 61 |..proc c|losingCa|
|00000b30| 72 72 69 61 67 65 52 65 | 74 75 72 6e 20 7b 7d 20 |rriageRe|turn {} |
|00000b40| 7b 0d 09 73 65 74 20 73 | 74 61 72 74 20 5b 67 65 |{..set s|tart [ge|
|00000b50| 74 50 6f 73 5d 0d 09 73 | 65 74 20 65 6e 64 20 5b |tPos]..s|et end [|
|00000b60| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 24 73 |nextLine|Start $s|
|00000b70| 74 61 72 74 5d 0d 09 73 | 65 74 20 74 65 78 74 20 |tart]..s|et text |
|00000b80| 5b 67 65 74 54 65 78 74 | 20 24 73 74 61 72 74 20 |[getText| $start |
|00000b90| 24 65 6e 64 5d 0d 09 69 | 66 20 7b 21 5b 69 73 57 |$end]..i|f {![isW|
|00000ba0| 68 69 74 65 73 70 61 63 | 65 20 24 74 65 78 74 5d |hitespac|e $text]|
|00000bb0| 7d 20 63 61 72 72 69 61 | 67 65 52 65 74 75 72 6e |} carria|geReturn|
|00000bc0| 0d 7d 0d 0d 23 20 53 65 | 74 20 75 70 20 74 61 62 |.}..# Se|t up tab|
|00000bd0| 20 73 74 6f 70 20 6d 65 | 63 68 61 6e 69 73 6d 2e | stop me|chanism.|
|00000be0| 0d 70 72 6f 63 20 67 6f | 74 6f 54 61 62 53 74 6f |.proc go|toTabSto|
|00000bf0| 70 20 7b 64 69 72 65 63 | 74 69 6f 6e 49 6e 64 69 |p {direc|tionIndi|
|00000c00| 63 61 74 6f 72 7d 20 7b | 0d 09 73 65 74 20 73 65 |cator} {|..set se|
|00000c10| 61 72 63 68 52 65 73 75 | 6c 74 20 5b 73 65 61 72 |archResu|lt [sear|
|00000c20| 63 68 20 2d 6e 20 2d 66 | 20 24 64 69 72 65 63 74 |ch -n -f| $direct|
|00000c30| 69 6f 6e 49 6e 64 69 63 | 61 74 6f 72 20 2d 6d 20 |ionIndic|ator -m |
|00000c40| 30 20 2d 69 20 31 20 2d | 72 20 30 20 7b a5 7d 20 |0 -i 1 -|r 0 {.} |
|00000c50| 5b 67 65 74 50 6f 73 5d | 5d 0d 09 69 66 20 7b 5b |[getPos]|]..if {[|
|00000c60| 6c 6c 65 6e 67 74 68 20 | 24 73 65 61 72 63 68 52 |llength |$searchR|
|00000c70| 65 73 75 6c 74 5d 20 3d | 3d 20 30 7d 20 74 68 65 |esult] =|= 0} the|
|00000c80| 6e 20 7b 0d 09 09 6d 65 | 73 73 61 67 65 20 22 74 |n {...me|ssage "t|
|00000c90| 61 62 20 73 74 6f 70 20 | 6e 6f 74 20 66 6f 75 6e |ab stop |not foun|
|00000ca0| 64 22 0d 09 09 72 65 74 | 75 72 6e 20 30 0d 09 7d |d"...ret|urn 0..}|
|00000cb0| 20 65 6c 73 65 20 7b 0d | 09 09 67 6f 74 6f 20 5b | else {.|..goto [|
|00000cc0| 6c 69 6e 64 65 78 20 24 | 73 65 61 72 63 68 52 65 |lindex $|searchRe|
|00000cd0| 73 75 6c 74 20 30 5d 0d | 09 09 72 65 74 75 72 6e |sult 0].|..return|
|00000ce0| 20 31 0d 09 7d 0d 7d 0d | 70 72 6f 63 20 6e 65 78 | 1..}.}.|proc nex|
|00000cf0| 74 54 61 62 53 74 6f 70 | 20 7b 7d 20 7b 0d 09 69 |tTabStop| {} {..i|
|00000d00| 66 20 7b 5b 67 6f 74 6f | 54 61 62 53 74 6f 70 20 |f {[goto|TabStop |
|00000d10| 31 5d 7d 20 7b 64 65 6c | 65 74 65 43 68 61 72 7d |1]} {del|eteChar}|
|00000d20| 0d 7d 0d 70 72 6f 63 20 | 70 72 65 76 69 6f 75 73 |.}.proc |previous|
|00000d30| 54 61 62 53 74 6f 70 20 | 7b 7d 20 7b 0d 09 69 66 |TabStop |{} {..if|
|00000d40| 20 7b 5b 67 6f 74 6f 54 | 61 62 53 74 6f 70 20 30 | {[gotoT|abStop 0|
|00000d50| 5d 7d 20 7b 64 65 6c 65 | 74 65 43 68 61 72 7d 0d |]} {dele|teChar}.|
|00000d60| 7d 0d 0d 23 20 49 6e 73 | 65 72 74 20 61 6e 20 6f |}..# Ins|ert an o|
|00000d70| 62 6a 65 63 74 20 61 74 | 20 74 68 65 20 69 6e 73 |bject at| the ins|
|00000d80| 65 72 74 69 6f 6e 20 70 | 6f 69 6e 74 2e 20 49 66 |ertion p|oint. If|
|00000d90| 20 74 68 65 72 65 20 69 | 73 20 61 20 73 65 6c 65 | there i|s a sele|
|00000da0| 63 74 69 6f 6e 20 61 6e | 64 20 74 68 65 20 0d 23 |ction an|d the .#|
|00000db0| 20 67 6c 6f 62 61 6c 20 | 76 61 72 69 61 62 6c 65 | global |variable|
|00000dc0| 20 64 65 6c 65 74 65 4f | 62 6a 65 63 74 4e 6f 69 | deleteO|bjectNoi|
|00000dd0| 73 69 6c 79 20 69 73 20 | 66 61 6c 73 65 2c 20 71 |sily is |false, q|
|00000de0| 75 69 65 74 6c 79 20 64 | 65 6c 65 74 65 20 74 68 |uietly d|elete th|
|00000df0| 65 20 73 65 6c 65 63 74 | 69 6f 6e 20 0d 23 20 66 |e select|ion .# f|
|00000e00| 69 72 73 74 20 28 6a 75 | 73 74 20 6c 69 6b 65 20 |irst (ju|st like |
|00000e10| 22 70 61 73 74 65 22 29 | 2e 20 4f 74 68 65 72 77 |"paste")|. Otherw|
|00000e20| 69 73 65 2c 20 70 72 6f | 6d 70 74 20 74 68 65 20 |ise, pro|mpt the |
|00000e30| 75 73 65 72 20 66 6f 72 | 20 74 68 65 20 61 70 70 |user for| the app|
|00000e40| 72 6f 70 72 69 61 74 65 | 20 0d 23 20 61 63 74 69 |ropriate| .# acti|
|00000e50| 6f 6e 2e 20 52 65 74 75 | 72 6e 73 20 74 72 75 65 |on. Retu|rns true|
|00000e60| 20 69 66 20 74 68 65 20 | 6f 62 6a 65 63 74 20 69 | if the |object i|
|00000e70| 73 20 75 6c 74 69 6d 61 | 74 65 6c 79 20 69 6e 73 |s ultima|tely ins|
|00000e80| 65 72 74 65 64 2c 20 61 | 6e 64 20 66 61 6c 73 65 |erted, a|nd false|
|00000e90| 20 69 66 20 74 68 65 20 | 0d 23 20 75 73 65 72 20 | if the |.# user |
|00000ea0| 63 61 6e 63 65 6c 73 20 | 74 68 65 20 6f 70 65 72 |cancels |the oper|
|00000eb0| 61 74 69 6f 6e 2e 20 0d | 70 72 6f 63 20 69 6e 73 |ation. .|proc ins|
|00000ec0| 65 72 74 4f 62 6a 65 63 | 74 20 7b 6f 62 6a 65 63 |ertObjec|t {objec|
|00000ed0| 74 4e 61 6d 65 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |tName} {|..global|
|00000ee0| 20 64 65 6c 65 74 65 4f | 62 6a 65 63 74 4e 6f 69 | deleteO|bjectNoi|
|00000ef0| 73 69 6c 79 0d 09 69 66 | 20 7b 5b 69 73 53 65 6c |sily..if| {[isSel|
|00000f00| 65 63 74 69 6f 6e 5d 7d | 20 74 68 65 6e 20 7b 0d |ection]}| then {.|
|00000f10| 09 09 69 66 20 7b 24 64 | 65 6c 65 74 65 4f 62 6a |..if {$d|eleteObj|
|00000f20| 65 63 74 4e 6f 69 73 69 | 6c 79 7d 20 74 68 65 6e |ectNoisi|ly} then|
|00000f30| 20 7b 0d 09 09 09 63 61 | 73 65 20 5b 61 73 6b 79 | {....ca|se [asky|
|00000f40| 65 73 6e 6f 20 22 44 65 | 6c 65 74 65 20 73 65 6c |esno "De|lete sel|
|00000f50| 65 63 74 69 6f 6e 3f 22 | 5d 20 69 6e 20 7b 0d 09 |ection?"|] in {..|
|00000f60| 09 09 09 22 79 65 73 22 | 20 7b 64 65 6c 65 74 65 |..."yes"| {delete|
|00000f70| 54 65 78 74 20 5b 67 65 | 74 50 6f 73 5d 20 5b 73 |Text [ge|tPos] [s|
|00000f80| 65 6c 45 6e 64 5d 7d 0d | 09 09 09 09 22 6e 6f 22 |elEnd]}.|...."no"|
|00000f90| 20 7b 62 61 63 6b 77 61 | 72 64 43 68 61 72 7d 0d | {backwa|rdChar}.|
|00000fa0| 09 09 09 09 22 63 61 6e | 63 65 6c 22 20 7b 72 65 |...."can|cel" {re|
|00000fb0| 74 75 72 6e 20 30 7d 0d | 09 09 09 7d 0d 09 09 7d |turn 0}.|...}...}|
|00000fc0| 20 65 6c 73 65 20 7b 0d | 09 09 09 64 65 6c 65 74 | else {.|...delet|
|00000fd0| 65 54 65 78 74 20 5b 67 | 65 74 50 6f 73 5d 20 5b |eText [g|etPos] [|
|00000fe0| 73 65 6c 45 6e 64 5d 0d | 09 09 7d 0d 09 7d 0d 09 |selEnd].|..}..}..|
|00000ff0| 69 6e 73 65 72 74 54 65 | 78 74 20 24 6f 62 6a 65 |insertTe|xt $obje|
|00001000| 63 74 4e 61 6d 65 0d 09 | 72 65 74 75 72 6e 20 31 |ctName..|return 1|
|00001010| 0d 7d 0d 0d 23 20 49 6e | 73 65 72 74 20 61 6e 20 |.}..# In|sert an |
|00001020| 6f 62 6a 65 63 74 20 61 | 74 20 74 68 65 20 69 6e |object a|t the in|
|00001030| 73 65 72 74 69 6f 6e 20 | 70 6f 69 6e 74 2e 20 49 |sertion |point. I|
|00001040| 66 20 74 68 65 72 65 20 | 69 73 20 61 20 73 65 6c |f there |is a sel|
|00001050| 65 63 74 69 6f 6e 2c 20 | 77 72 61 70 20 0d 23 20 |ection, |wrap .# |
|00001060| 69 74 20 69 6e 73 69 64 | 65 20 74 68 65 20 70 61 |it insid|e the pa|
|00001070| 72 61 6d 65 74 65 72 73 | 20 24 6c 65 66 74 20 61 |rameters| $left a|
|00001080| 6e 64 20 24 72 69 67 68 | 74 2e 20 52 65 74 75 72 |nd $righ|t. Retur|
|00001090| 6e 73 20 74 72 75 65 20 | 69 66 20 74 68 65 72 65 |ns true |if there|
|000010a0| 20 69 73 20 61 20 0d 23 | 20 73 65 6c 65 63 74 69 | is a .#| selecti|
|000010b0| 6f 6e 20 28 69 6e 20 77 | 68 69 63 68 20 63 61 73 |on (in w|hich cas|
|000010c0| 65 20 69 74 20 77 69 6c | 6c 20 77 72 61 70 29 2c |e it wil|l wrap),|
|000010d0| 20 61 6e 64 20 66 61 6c | 73 65 20 6f 74 68 65 72 | and fal|se other|
|000010e0| 77 69 73 65 2e 20 0d 70 | 72 6f 63 20 77 72 61 70 |wise. .p|roc wrap|
|000010f0| 4f 62 6a 65 63 74 20 7b | 6c 65 66 74 20 72 69 67 |Object {|left rig|
|00001100| 68 74 7d 20 7b 0d 09 73 | 65 74 20 63 75 72 72 65 |ht} {..s|et curre|
|00001110| 6e 74 50 6f 73 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |ntPos [g|etPos]..|
|00001120| 73 65 74 20 73 65 6c 65 | 63 74 65 64 20 5b 69 73 |set sele|cted [is|
|00001130| 53 65 6c 65 63 74 69 6f | 6e 5d 0d 09 69 66 20 7b |Selectio|n]..if {|
|00001140| 24 73 65 6c 65 63 74 65 | 64 7d 20 74 68 65 6e 20 |$selecte|d} then |
|00001150| 7b 0d 09 09 72 65 70 6c | 61 63 65 54 65 78 74 20 |{...repl|aceText |
|00001160| 24 63 75 72 72 65 6e 74 | 50 6f 73 20 5b 73 65 6c |$current|Pos [sel|
|00001170| 45 6e 64 5d 20 24 6c 65 | 66 74 20 5b 67 65 74 53 |End] $le|ft [getS|
|00001180| 65 6c 65 63 74 5d 20 24 | 72 69 67 68 74 0d 09 7d |elect] $|right..}|
|00001190| 20 65 6c 73 65 20 7b 0d | 09 09 69 6e 73 65 72 74 | else {.|..insert|
|000011a0| 54 65 78 74 20 24 6c 65 | 66 74 20 22 a5 22 20 24 |Text $le|ft "." $|
|000011b0| 72 69 67 68 74 0d 09 7d | 0d 09 67 6f 74 6f 20 24 |right..}|..goto $|
|000011c0| 63 75 72 72 65 6e 74 50 | 6f 73 0d 09 6e 65 78 74 |currentP|os..next|
|000011d0| 54 61 62 53 74 6f 70 0d | 09 72 65 74 75 72 6e 20 |TabStop.|.return |
|000011e0| 24 73 65 6c 65 63 74 65 | 64 0d 7d 0d 0d 23 20 49 |$selecte|d.}..# I|
|000011f0| 6e 73 65 72 74 73 20 61 | 6e 20 65 6e 76 69 72 6f |nserts a|n enviro|
|00001200| 6e 6d 65 6e 74 20 77 69 | 74 68 20 74 68 65 20 73 |nment wi|th the s|
|00001210| 70 65 63 69 66 69 65 64 | 20 6e 61 6d 65 20 61 74 |pecified| name at|
|00001220| 20 74 68 65 20 69 6e 73 | 65 72 74 69 6f 6e 20 70 | the ins|ertion p|
|00001230| 6f 69 6e 74 2e 20 0d 23 | 20 50 72 65 73 65 72 76 |oint. .#| Preserv|
|00001240| 65 73 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 2c 20 |es inden|tation, |
|00001250| 61 6e 64 20 70 6f 73 69 | 74 69 6f 6e 73 20 74 68 |and posi|tions th|
|00001260| 65 20 63 75 72 73 6f 72 | 20 61 74 20 74 68 65 20 |e cursor| at the |
|00001270| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 74 68 65 |beginnin|g of the|
|00001280| 20 0d 23 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 | .# envi|ronment |
|00001290| 62 6f 64 79 20 28 74 6f | 20 62 65 20 69 6e 73 65 |body (to| be inse|
|000012a0| 72 74 65 64 20 62 79 20 | 74 68 65 20 63 61 6c 6c |rted by |the call|
|000012b0| 69 6e 67 20 70 72 6f 63 | 65 64 75 72 65 29 2e 20 |ing proc|edure). |
|000012c0| 49 66 20 74 68 65 20 0d | 23 20 70 61 72 61 6d 65 |If the .|# parame|
|000012d0| 74 65 72 20 6c 61 74 65 | 78 50 61 72 61 6d 65 74 |ter late|xParamet|
|000012e0| 65 72 20 69 73 20 74 72 | 75 65 2c 20 61 20 4c 61 |er is tr|ue, a La|
|000012f0| 54 65 58 20 70 61 72 61 | 6d 65 74 65 72 20 69 73 |TeX para|meter is|
|00001300| 20 69 6e 73 65 72 74 65 | 64 20 61 6e 64 20 74 68 | inserte|d and th|
|00001310| 65 20 0d 23 20 63 75 72 | 73 6f 72 20 69 73 20 70 |e .# cur|sor is p|
|00001320| 6f 73 69 74 69 6f 6e 65 | 64 20 74 68 65 72 65 20 |ositione|d there |
|00001330| 69 6e 73 74 65 61 64 2e | 20 44 65 6c 65 74 65 73 |instead.| Deletes|
|00001340| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 73 65 6c | the cur|rent sel|
|00001350| 65 63 74 69 6f 6e 20 71 | 75 69 65 74 6c 79 20 0d |ection q|uietly .|
|00001360| 23 20 69 66 20 74 68 65 | 20 67 6c 6f 62 61 6c 20 |# if the| global |
|00001370| 76 61 72 69 61 62 6c 65 | 20 64 65 6c 65 74 65 45 |variable| deleteE|
|00001380| 6e 76 69 72 6f 6e 6d 65 | 6e 74 4e 6f 69 73 69 6c |nvironme|ntNoisil|
|00001390| 79 20 69 73 20 66 61 6c | 73 65 3b 20 6f 74 68 65 |y is fal|se; othe|
|000013a0| 72 77 69 73 65 20 74 68 | 65 20 0d 23 20 75 73 65 |rwise th|e .# use|
|000013b0| 72 20 69 73 20 70 72 6f | 6d 70 74 65 64 20 66 6f |r is pro|mpted fo|
|000013c0| 72 20 64 69 72 65 63 74 | 69 6f 6e 73 2e 20 52 65 |r direct|ions. Re|
|000013d0| 74 75 72 6e 73 20 74 72 | 75 65 20 69 66 20 74 68 |turns tr|ue if th|
|000013e0| 65 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 69 73 |e enviro|nment is|
|000013f0| 20 0d 23 20 75 6c 74 69 | 6d 61 74 65 6c 79 20 69 | .# ulti|mately i|
|00001400| 6e 73 65 72 74 65 64 2c | 20 61 6e 64 20 66 61 6c |nserted,| and fal|
|00001410| 73 65 20 69 66 20 74 68 | 65 20 75 73 65 72 20 63 |se if th|e user c|
|00001420| 61 6e 63 65 6c 73 20 74 | 68 65 20 6f 70 65 72 61 |ancels t|he opera|
|00001430| 74 69 6f 6e 2e 20 0d 70 | 72 6f 63 20 69 6e 73 65 |tion. .p|roc inse|
|00001440| 72 74 45 6e 76 69 72 6f | 6e 6d 65 6e 74 20 7b 65 |rtEnviro|nment {e|
|00001450| 6e 76 69 72 6f 6e 6d 65 | 6e 74 4e 61 6d 65 20 6c |nvironme|ntName l|
|00001460| 61 74 65 78 50 61 72 61 | 6d 65 74 65 72 7d 20 7b |atexPara|meter} {|
|00001470| 0d 09 67 6c 6f 62 61 6c | 20 64 65 6c 65 74 65 45 |..global| deleteE|
|00001480| 6e 76 69 72 6f 6e 6d 65 | 6e 74 4e 6f 69 73 69 6c |nvironme|ntNoisil|
|00001490| 79 0d 09 69 66 20 7b 5b | 69 73 53 65 6c 65 63 74 |y..if {[|isSelect|
|000014a0| 69 6f 6e 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 69 |ion]} th|en {...i|
|000014b0| 66 20 7b 24 64 65 6c 65 | 74 65 45 6e 76 69 72 6f |f {$dele|teEnviro|
|000014c0| 6e 6d 65 6e 74 4e 6f 69 | 73 69 6c 79 7d 20 74 68 |nmentNoi|sily} th|
|000014d0| 65 6e 20 7b 0d 09 09 09 | 63 61 73 65 20 5b 61 73 |en {....|case [as|
|000014e0| 6b 79 65 73 6e 6f 20 22 | 44 65 6c 65 74 65 20 73 |kyesno "|Delete s|
|000014f0| 65 6c 65 63 74 69 6f 6e | 3f 22 5d 20 69 6e 20 7b |election|?"] in {|
|00001500| 0d 09 09 09 09 22 79 65 | 73 22 20 7b 64 65 6c 65 |....."ye|s" {dele|
|00001510| 74 65 54 65 78 74 20 5b | 67 65 74 50 6f 73 5d 20 |teText [|getPos] |
|00001520| 5b 73 65 6c 45 6e 64 5d | 7d 0d 09 09 09 09 22 6e |[selEnd]|}....."n|
|00001530| 6f 22 20 7b 62 61 63 6b | 77 61 72 64 43 68 61 72 |o" {back|wardChar|
|00001540| 7d 0d 09 09 09 09 22 63 | 61 6e 63 65 6c 22 20 7b |}....."c|ancel" {|
|00001550| 72 65 74 75 72 6e 20 30 | 7d 0d 09 09 09 7d 0d 09 |return 0|}....}..|
|00001560| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 09 64 65 6c |.} else |{....del|
|00001570| 65 74 65 54 65 78 74 20 | 5b 67 65 74 50 6f 73 5d |eteText |[getPos]|
|00001580| 20 5b 73 65 6c 45 6e 64 | 5d 0d 09 09 7d 0d 09 7d | [selEnd|]...}..}|
|00001590| 0d 09 73 65 74 20 63 75 | 72 72 65 6e 74 50 6f 73 |..set cu|rrentPos|
|000015a0| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 6f 70 65 6e 69 | [getPos|]..openi|
|000015b0| 6e 67 43 61 72 72 69 61 | 67 65 52 65 74 75 72 6e |ngCarria|geReturn|
|000015c0| 0d 09 69 6e 73 65 72 74 | 54 65 78 74 20 22 5c 5c |..insert|Text "\\|
|000015d0| 62 65 67 69 6e 7b 22 20 | 24 65 6e 76 69 72 6f 6e |begin{" |$environ|
|000015e0| 6d 65 6e 74 4e 61 6d 65 | 20 22 7d 22 0d 09 23 20 |mentName| "}"..# |
|000015f0| 69 6e 73 65 72 74 20 6f | 70 74 69 6f 6e 61 6c 20 |insert o|ptional |
|00001600| 4c 61 54 65 58 20 70 61 | 72 61 6d 65 74 65 72 20 |LaTeX pa|rameter |
|00001610| 68 65 72 65 3a 0d 09 69 | 66 20 7b 24 6c 61 74 65 |here:..i|f {$late|
|00001620| 78 50 61 72 61 6d 65 74 | 65 72 7d 20 7b 69 6e 73 |xParamet|er} {ins|
|00001630| 65 72 74 54 65 78 74 20 | 22 7b a5 7d 22 7d 0d 09 |ertText |"{.}"}..|
|00001640| 63 61 72 72 69 61 67 65 | 52 65 74 75 72 6e 0d 09 |carriage|Return..|
|00001650| 74 61 62 0d 09 69 6e 73 | 65 72 74 54 65 78 74 20 |tab..ins|ertText |
|00001660| 22 a5 22 0d 09 63 61 72 | 72 69 61 67 65 52 65 74 |"."..car|riageRet|
|00001670| 75 72 6e 0d 09 62 61 63 | 6b 77 61 72 64 43 68 61 |urn..bac|kwardCha|
|00001680| 72 0d 09 64 65 6c 65 74 | 65 43 68 61 72 0d 09 69 |r..delet|eChar..i|
|00001690| 6e 73 65 72 74 54 65 78 | 74 20 22 5c 5c 65 6e 64 |nsertTex|t "\\end|
|000016a0| 7b 22 20 24 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 4e |{" $envi|ronmentN|
|000016b0| 61 6d 65 20 22 7d a5 22 | 0d 09 63 6c 6f 73 69 6e |ame "}."|..closin|
|000016c0| 67 43 61 72 72 69 61 67 | 65 52 65 74 75 72 6e 0d |gCarriag|eReturn.|
|000016d0| 09 67 6f 74 6f 20 24 63 | 75 72 72 65 6e 74 50 6f |.goto $c|urrentPo|
|000016e0| 73 0d 09 6e 65 78 74 54 | 61 62 53 74 6f 70 0d 09 |s..nextT|abStop..|
|000016f0| 72 65 74 75 72 6e 20 31 | 0d 7d 0d 0d 23 20 49 6e |return 1|.}..# In|
|00001700| 73 65 72 74 20 61 6e 20 | 65 6e 76 69 72 6f 6e 6d |sert an |environm|
|00001710| 65 6e 74 20 77 69 74 68 | 20 74 68 65 20 67 69 76 |ent with| the giv|
|00001720| 65 6e 20 6e 61 6d 65 20 | 61 74 20 74 68 65 20 69 |en name |at the i|
|00001730| 6e 73 65 72 74 69 6f 6e | 20 70 6f 69 6e 74 2e 20 |nsertion| point. |
|00001740| 49 66 20 74 68 65 72 65 | 20 0d 23 20 69 73 20 63 |If there| .# is c|
|00001750| 75 72 72 65 6e 74 6c 79 | 20 61 20 73 65 6c 65 63 |urrently| a selec|
|00001760| 74 69 6f 6e 2c 20 63 75 | 74 20 61 6e 64 20 70 61 |tion, cu|t and pa|
|00001770| 73 74 65 20 69 74 20 69 | 6e 74 6f 20 74 68 65 20 |ste it i|nto the |
|00001780| 62 6f 64 79 20 6f 66 20 | 74 68 65 20 6e 65 77 20 |body of |the new |
|00001790| 0d 23 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 2c 20 |.# envir|onment, |
|000017a0| 69 6e 64 65 6e 74 20 69 | 74 2c 20 61 6e 64 20 6c |indent i|t, and l|
|000017b0| 65 61 76 65 20 69 74 20 | 68 69 67 68 6c 69 67 68 |eave it |highligh|
|000017c0| 74 65 64 2e 20 52 65 74 | 75 72 6e 73 20 74 72 75 |ted. Ret|urns tru|
|000017d0| 65 20 69 66 20 74 68 65 | 72 65 20 69 73 20 0d 23 |e if the|re is .#|
|000017e0| 20 61 20 73 65 6c 65 63 | 74 69 6f 6e 2c 20 61 6e | a selec|tion, an|
|000017f0| 64 20 66 61 6c 73 65 20 | 6f 74 68 65 72 77 69 73 |d false |otherwis|
|00001800| 65 2e 20 0d 70 72 6f 63 | 20 77 72 61 70 45 6e 76 |e. .proc| wrapEnv|
|00001810| 69 72 6f 6e 6d 65 6e 74 | 20 7b 65 6e 76 69 72 6f |ironment| {enviro|
|00001820| 6e 6d 65 6e 74 4e 61 6d | 65 20 6c 61 74 65 78 50 |nmentNam|e latexP|
|00001830| 61 72 61 6d 65 74 65 72 | 7d 20 7b 0d 09 69 66 20 |arameter|} {..if |
|00001840| 7b 5b 69 73 53 65 6c 65 | 63 74 69 6f 6e 5d 7d 20 |{[isSele|ction]} |
|00001850| 74 68 65 6e 20 7b 0d 09 | 09 73 65 74 20 69 6e 64 |then {..|.set ind|
|00001860| 65 6e 74 20 5b 69 6e 64 | 65 6e 74 53 74 72 69 6e |ent [ind|entStrin|
|00001870| 67 20 5b 67 65 74 50 6f | 73 5d 5d 0d 09 09 73 65 |g [getPo|s]]...se|
|00001880| 74 20 74 65 78 74 20 5b | 67 65 74 53 65 6c 65 63 |t text [|getSelec|
|00001890| 74 5d 0d 09 09 64 65 6c | 65 74 65 54 65 78 74 20 |t]...del|eteText |
|000018a0| 5b 67 65 74 50 6f 73 5d | 20 5b 73 65 6c 45 6e 64 |[getPos]| [selEnd|
|000018b0| 5d 0d 09 09 69 6e 73 65 | 72 74 54 65 78 74 20 24 |]...inse|rtText $|
|000018c0| 69 6e 64 65 6e 74 20 22 | 5c 72 22 0d 09 09 62 61 |indent "|\r"...ba|
|000018d0| 63 6b 77 61 72 64 43 68 | 61 72 0d 09 09 69 6e 73 |ckwardCh|ar...ins|
|000018e0| 65 72 74 45 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 24 |ertEnvir|onment $|
|000018f0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 4e 61 6d 65 20 |environm|entName |
|00001900| 24 6c 61 74 65 78 50 61 | 72 61 6d 65 74 65 72 0d |$latexPa|rameter.|
|00001910| 09 09 69 66 20 7b 24 6c | 61 74 65 78 50 61 72 61 |..if {$l|atexPara|
|00001920| 6d 65 74 65 72 7d 20 74 | 68 65 6e 20 7b 0d 09 09 |meter} t|hen {...|
|00001930| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 a5 22 0d |.insertT|ext ".".|
|00001940| 09 09 09 6e 65 78 74 54 | 61 62 53 74 6f 70 0d 09 |...nextT|abStop..|
|00001950| 09 7d 0d 09 09 6c 69 6e | 65 53 65 6c 65 63 74 0d |.}...lin|eSelect.|
|00001960| 09 09 63 6c 65 61 72 0d | 09 09 69 6e 73 65 72 74 |..clear.|..insert|
|00001970| 54 65 78 74 20 24 74 65 | 78 74 0d 09 09 6d 61 72 |Text $te|xt...mar|
|00001980| 6b 48 69 6c 69 74 65 0d | 09 09 73 68 69 66 74 52 |kHilite.|..shiftR|
|00001990| 69 67 68 74 0d 09 09 72 | 65 74 75 72 6e 20 31 0d |ight...r|eturn 1.|
|000019a0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 69 6e 73 65 |.} else |{...inse|
|000019b0| 72 74 45 6e 76 69 72 6f | 6e 6d 65 6e 74 20 24 65 |rtEnviro|nment $e|
|000019c0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 4e 61 6d 65 20 24 |nvironme|ntName $|
|000019d0| 6c 61 74 65 78 50 61 72 | 61 6d 65 74 65 72 0d 09 |latexPar|ameter..|
|000019e0| 09 72 65 74 75 72 6e 20 | 30 0d 09 7d 0d 7d 0d 0d |.return |0..}.}..|
|000019f0| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00001a00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001a10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001a20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001a30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 0d 23 |########|######.#|
|00001a40| 20 0d 23 20 50 61 72 61 | 67 72 61 70 68 20 4d 6f | .# Para|graph Mo|
|00001a50| 64 65 20 4d 61 63 72 6f | 73 2e 0d 23 0d 23 23 23 |de Macro|s..#.###|
|00001a60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001a70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001a80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001a90| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00001aa0| 23 23 23 23 23 23 23 23 | 23 23 0d 0d 23 20 44 6f |########|##..# Do|
|00001ab0| 63 75 6d 65 6e 74 73 3a | 0d 70 72 6f 63 20 69 6e |cuments:|.proc in|
|00001ac0| 73 65 72 74 44 6f 63 75 | 6d 65 6e 74 20 7b 64 6f |sertDocu|ment {do|
|00001ad0| 63 75 6d 65 6e 74 54 79 | 70 65 7d 20 7b 0d 09 73 |cumentTy|pe} {..s|
|00001ae0| 65 74 20 63 75 72 72 65 | 6e 74 50 6f 73 20 5b 67 |et curre|ntPos [g|
|00001af0| 65 74 50 6f 73 5d 0d 09 | 69 6e 73 65 72 74 54 65 |etPos]..|insertTe|
|00001b00| 78 74 20 22 5c 5c 64 6f | 63 75 6d 65 6e 74 73 74 |xt "\\do|cumentst|
|00001b10| 79 6c 65 5c 5b a5 5c 5d | 7b 24 64 6f 63 75 6d 65 |yle\[.\]|{$docume|
|00001b20| 6e 74 54 79 70 65 7d 22 | 0d 09 63 61 72 72 69 61 |ntType}"|..carria|
|00001b30| 67 65 52 65 74 75 72 6e | 0d 09 69 6e 73 65 72 74 |geReturn|..insert|
|00001b40| 45 6e 76 69 72 6f 6e 6d | 65 6e 74 20 22 64 6f 63 |Environm|ent "doc|
|00001b50| 75 6d 65 6e 74 22 20 30 | 0d 09 62 61 63 6b 77 61 |ument" 0|..backwa|
|00001b60| 72 64 43 68 61 72 0d 09 | 64 65 6c 65 74 65 43 68 |rdChar..|deleteCh|
|00001b70| 61 72 0d 09 63 61 72 72 | 69 61 67 65 52 65 74 75 |ar..carr|iageRetu|
|00001b80| 72 6e 0d 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |rn..inse|rtText "|
|00001b90| a5 22 0d 09 63 61 72 72 | 69 61 67 65 52 65 74 75 |."..carr|iageRetu|
|00001ba0| 72 6e 0d 09 6e 65 78 74 | 54 61 62 53 74 6f 70 0d |rn..next|TabStop.|
|00001bb0| 09 63 61 72 72 69 61 67 | 65 52 65 74 75 72 6e 0d |.carriag|eReturn.|
|00001bc0| 09 67 6f 74 6f 20 24 63 | 75 72 72 65 6e 74 50 6f |.goto $c|urrentPo|
|00001bd0| 73 0d 09 6e 65 78 74 54 | 61 62 53 74 6f 70 0d 7d |s..nextT|abStop.}|
|00001be0| 0d 70 72 6f 63 20 69 73 | 44 6f 63 75 6d 65 6e 74 |.proc is|Document|
|00001bf0| 53 65 6c 65 63 74 65 64 | 20 7b 7d 20 7b 0d 09 72 |Selected| {} {..r|
|00001c00| 65 74 75 72 6e 20 31 0d | 7d 0d 70 72 6f 63 20 69 |eturn 1.|}.proc i|
|00001c10| 73 45 6d 70 74 79 46 69 | 6c 65 20 7b 7d 20 7b 0d |sEmptyFi|le {} {.|
|00001c20| 09 72 65 74 75 72 6e 20 | 31 0d 7d 0d 70 72 6f 63 |.return |1.}.proc|
|00001c30| 20 77 72 61 70 44 6f 63 | 75 6d 65 6e 74 20 7b 64 | wrapDoc|ument {d|
|00001c40| 6f 63 75 6d 65 6e 74 54 | 79 70 65 7d 20 7b 0d 09 |ocumentT|ype} {..|
|00001c50| 69 66 20 7b 5b 69 73 53 | 65 6c 65 63 74 69 6f 6e |if {[isS|election|
|00001c60| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 69 66 20 7b |]} then |{...if {|
|00001c70| 5b 69 73 44 6f 63 75 6d | 65 6e 74 53 65 6c 65 63 |[isDocum|entSelec|
|00001c80| 74 65 64 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 09 |ted]} th|en {....|
|00001c90| 73 65 74 20 74 65 78 74 | 20 5b 67 65 74 53 65 6c |set text| [getSel|
|00001ca0| 65 63 74 5d 0d 09 09 09 | 64 65 6c 65 74 65 54 65 |ect]....|deleteTe|
|00001cb0| 78 74 20 5b 67 65 74 50 | 6f 73 5d 20 5b 73 65 6c |xt [getP|os] [sel|
|00001cc0| 45 6e 64 5d 0d 09 09 7d | 20 65 6c 73 65 20 7b 0d |End]...}| else {.|
|00001cd0| 09 09 09 63 61 73 65 20 | 5b 61 73 6b 79 65 73 6e |...case |[askyesn|
|00001ce0| 6f 20 22 53 65 6c 65 63 | 74 20 65 6e 74 69 72 65 |o "Selec|t entire|
|00001cf0| 20 64 6f 63 75 6d 65 6e | 74 3f 22 5d 20 69 6e 20 | documen|t?"] in |
|00001d00| 7b 0d 09 09 09 09 22 79 | 65 73 22 20 7b 7d 0d 09 |{....."y|es" {}..|
|00001d10| 09 09 09 22 6e 6f 22 20 | 7b 0d 09 09 09 09 09 73 |..."no" |{......s|
|00001d20| 65 74 20 74 65 78 74 20 | 5b 67 65 74 53 65 6c 65 |et text |[getSele|
|00001d30| 63 74 5d 0d 09 09 09 09 | 09 64 65 6c 65 74 65 54 |ct].....|.deleteT|
|00001d40| 65 78 74 20 5b 67 65 74 | 50 6f 73 5d 20 5b 73 65 |ext [get|Pos] [se|
|00001d50| 6c 45 6e 64 5d 0d 09 09 | 09 09 7d 0d 09 09 09 09 |lEnd]...|..}.....|
|00001d60| 22 63 61 6e 63 65 6c 22 | 20 7b 72 65 74 75 72 6e |"cancel"| {return|
|00001d70| 20 30 7d 0d 09 09 09 7d | 0d 09 09 7d 0d 09 09 73 | 0}....}|...}...s|
|00001d80| 65 74 20 63 75 72 72 65 | 6e 74 50 6f 73 20 5b 67 |et curre|ntPos [g|
|00001d90| 65 74 50 6f 73 5d 0d 09 | 09 69 6e 73 65 72 74 44 |etPos]..|.insertD|
|00001da0| 6f 63 75 6d 65 6e 74 20 | 24 64 6f 63 75 6d 65 6e |ocument |$documen|
|00001db0| 74 54 79 70 65 0d 09 09 | 69 6e 73 65 72 74 54 65 |tType...|insertTe|
|00001dc0| 78 74 20 22 a5 22 0d 09 | 09 6e 65 78 74 54 61 62 |xt "."..|.nextTab|
|00001dd0| 53 74 6f 70 0d 09 09 6c | 69 6e 65 53 65 6c 65 63 |Stop...l|ineSelec|
|00001de0| 74 0d 09 09 63 6c 65 61 | 72 0d 09 09 69 6e 73 65 |t...clea|r...inse|
|00001df0| 72 74 54 65 78 74 20 24 | 74 65 78 74 0d 09 09 6d |rtText $|text...m|
|00001e00| 61 72 6b 48 69 6c 69 74 | 65 0d 09 09 6e 65 78 74 |arkHilit|e...next|
|00001e10| 54 61 62 53 74 6f 70 0d | 09 7d 20 65 6c 73 65 20 |TabStop.|.} else |
|00001e20| 7b 0d 09 09 69 66 20 7b | 21 5b 69 73 45 6d 70 74 |{...if {|![isEmpt|
|00001e30| 79 46 69 6c 65 5d 7d 20 | 74 68 65 6e 20 7b 0d 09 |yFile]} |then {..|
|00001e40| 09 09 63 61 73 65 20 5b | 61 73 6b 79 65 73 6e 6f |..case [|askyesno|
|00001e50| 20 22 57 72 61 70 20 65 | 78 69 73 74 69 6e 67 20 | "Wrap e|xisting |
|00001e60| 74 65 78 74 3f 22 5d 20 | 69 6e 20 7b 0d 09 09 09 |text?"] |in {....|
|00001e70| 09 22 79 65 73 22 20 7b | 7d 0d 09 09 09 09 22 6e |."yes" {|}....."n|
|00001e80| 6f 22 20 7b 7d 0d 09 09 | 09 09 22 63 61 6e 63 65 |o" {}...|.."cance|
|00001e90| 6c 22 20 7b 72 65 74 75 | 72 6e 20 30 7d 0d 09 09 |l" {retu|rn 0}...|
|00001ea0| 09 7d 0d 09 09 7d 0d 09 | 09 69 6e 73 65 72 74 44 |.}...}..|.insertD|
|00001eb0| 6f 63 75 6d 65 6e 74 20 | 24 64 6f 63 75 6d 65 6e |ocument |$documen|
|00001ec0| 74 54 79 70 65 0d 09 7d | 0d 09 72 65 74 75 72 6e |tType..}|..return|
|00001ed0| 20 31 0d 7d 0d 0d 70 72 | 6f 63 20 6c 65 74 74 65 | 1.}..pr|oc lette|
|00001ee0| 72 20 7b 7d 20 7b 0d 09 | 77 72 61 70 44 6f 63 75 |r {} {..|wrapDocu|
|00001ef0| 6d 65 6e 74 20 22 6c 65 | 74 74 65 72 22 0d 09 6d |ment "le|tter"..m|
|00001f00| 65 73 73 61 67 65 20 22 | 74 79 70 65 20 73 74 79 |essage "|type sty|
|00001f10| 6c 65 20 6f 70 74 69 6f | 6e 28 73 29 22 0d 7d 0d |le optio|n(s)".}.|
|00001f20| 70 72 6f 63 20 61 72 74 | 69 63 6c 65 20 7b 7d 20 |proc art|icle {} |
|00001f30| 7b 0d 09 77 72 61 70 44 | 6f 63 75 6d 65 6e 74 20 |{..wrapD|ocument |
|00001f40| 22 61 72 74 69 63 6c 65 | 22 0d 09 6d 65 73 73 61 |"article|"..messa|
|00001f50| 67 65 20 22 74 79 70 65 | 20 73 74 79 6c 65 20 6f |ge "type| style o|
|00001f60| 70 74 69 6f 6e 28 73 29 | 22 0d 7d 0d 70 72 6f 63 |ption(s)|".}.proc|
|00001f70| 20 72 65 70 6f 72 74 20 | 7b 7d 20 7b 0d 09 77 72 | report |{} {..wr|
|00001f80| 61 70 44 6f 63 75 6d 65 | 6e 74 20 22 72 65 70 6f |apDocume|nt "repo|
|00001f90| 72 74 22 0d 09 6d 65 73 | 73 61 67 65 20 22 74 79 |rt"..mes|sage "ty|
|00001fa0| 70 65 20 73 74 79 6c 65 | 20 6f 70 74 69 6f 6e 28 |pe style| option(|
|00001fb0| 73 29 22 0d 7d 0d 70 72 | 6f 63 20 62 6f 6f 6b 20 |s)".}.pr|oc book |
|00001fc0| 7b 7d 20 7b 0d 09 77 72 | 61 70 44 6f 63 75 6d 65 |{} {..wr|apDocume|
|00001fd0| 6e 74 20 22 62 6f 6f 6b | 22 0d 09 6d 65 73 73 61 |nt "book|"..messa|
|00001fe0| 67 65 20 22 74 79 70 65 | 20 73 74 79 6c 65 20 6f |ge "type| style o|
|00001ff0| 70 74 69 6f 6e 28 73 29 | 22 0d 7d 0d 0d 70 72 6f |ption(s)|".}..pro|
|00002000| 63 20 63 75 73 74 6f 6d | 20 7b 7d 20 7b 0d 09 63 |c custom| {} {..c|
|00002010| 61 74 63 68 20 7b 70 72 | 6f 6d 70 74 20 22 57 68 |atch {pr|ompt "Wh|
|00002020| 61 74 20 64 6f 63 75 6d | 65 6e 74 20 74 79 70 65 |at docum|ent type|
|00002030| 3f 22 20 22 61 72 74 69 | 63 6c 65 22 7d 20 64 6f |?" "arti|cle"} do|
|00002040| 63 75 6d 65 6e 74 54 79 | 70 65 0d 09 69 66 20 7b |cumentTy|pe..if {|
|00002050| 24 64 6f 63 75 6d 65 6e | 74 54 79 70 65 20 21 3d |$documen|tType !=|
|00002060| 20 22 63 61 6e 63 65 6c | 22 7d 20 74 68 65 6e 20 | "cancel|"} then |
|00002070| 7b 0d 09 09 77 72 61 70 | 44 6f 63 75 6d 65 6e 74 |{...wrap|Document|
|00002080| 20 24 64 6f 63 75 6d 65 | 6e 74 54 79 70 65 0d 09 | $docume|ntType..|
|00002090| 09 6d 65 73 73 61 67 65 | 20 22 74 79 70 65 20 73 |.message| "type s|
|000020a0| 74 79 6c 65 20 6f 70 74 | 69 6f 6e 28 73 29 22 0d |tyle opt|ion(s)".|
|000020b0| 09 7d 0d 7d 0d 0d 23 20 | 53 65 63 74 69 6f 6e 69 |.}.}..# |Sectioni|
|000020c0| 6e 67 3a 0d 70 72 6f 63 | 20 70 61 72 74 20 7b 7d |ng:.proc| part {}|
|000020d0| 20 7b 0d 09 69 66 20 7b | 5b 77 72 61 70 4f 62 6a | {..if {|[wrapObj|
|000020e0| 65 63 74 20 22 5c 5c 70 | 61 72 74 7b 22 20 22 7d |ect "\\p|art{" "}|
|000020f0| a5 22 5d 7d 20 74 68 65 | 6e 20 7b 0d 09 09 6d 65 |."]} the|n {...me|
|00002100| 73 73 61 67 65 20 22 64 | 6f 6e 27 74 20 66 6f 72 |ssage "d|on't for|
|00002110| 67 65 74 20 6c 61 62 65 | 6c 22 0d 09 7d 20 65 6c |get labe|l"..} el|
|00002120| 73 65 20 7b 0d 09 09 6d | 65 73 73 61 67 65 20 22 |se {...m|essage "|
|00002130| 74 79 70 65 20 70 61 72 | 74 20 6e 61 6d 65 22 0d |type par|t name".|
|00002140| 09 7d 0d 7d 0d 70 72 6f | 63 20 63 68 61 70 74 65 |.}.}.pro|c chapte|
|00002150| 72 20 7b 7d 20 7b 0d 09 | 69 66 20 7b 5b 77 72 61 |r {} {..|if {[wra|
|00002160| 70 4f 62 6a 65 63 74 20 | 22 5c 5c 63 68 61 70 74 |pObject |"\\chapt|
|00002170| 65 72 7b 22 20 22 7d a5 | 22 5d 7d 20 74 68 65 6e |er{" "}.|"]} then|
|00002180| 20 7b 0d 09 09 6d 65 73 | 73 61 67 65 20 22 64 6f | {...mes|sage "do|
|00002190| 6e 27 74 20 66 6f 72 67 | 65 74 20 6c 61 62 65 6c |n't forg|et label|
|000021a0| 22 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 6d 65 |"..} els|e {...me|
|000021b0| 73 73 61 67 65 20 22 74 | 79 70 65 20 70 61 72 74 |ssage "t|ype part|
|000021c0| 20 6e 61 6d 65 22 0d 09 | 7d 0d 7d 0d 70 72 6f 63 | name"..|}.}.proc|
|000021d0| 20 73 65 63 74 69 6f 6e | 20 7b 7d 20 7b 0d 09 69 | section| {} {..i|
|000021e0| 66 20 7b 5b 77 72 61 70 | 4f 62 6a 65 63 74 20 22 |f {[wrap|Object "|
|000021f0| 5c 5c 73 65 63 74 69 6f | 6e 7b 22 20 22 7d a5 22 |\\sectio|n{" "}."|
|00002200| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 6d 65 73 73 |]} then |{...mess|
|00002210| 61 67 65 20 22 64 6f 6e | 27 74 20 66 6f 72 67 65 |age "don|'t forge|
|00002220| 74 20 6c 61 62 65 6c 22 | 0d 09 7d 20 65 6c 73 65 |t label"|..} else|
|00002230| 20 7b 0d 09 09 6d 65 73 | 73 61 67 65 20 22 74 79 | {...mes|sage "ty|
|00002240| 70 65 20 70 61 72 74 20 | 6e 61 6d 65 22 0d 09 7d |pe part |name"..}|
|00002250| 0d 7d 0d 70 72 6f 63 20 | 73 75 62 73 65 63 74 69 |.}.proc |subsecti|
|00002260| 6f 6e 20 7b 7d 20 7b 0d | 09 69 66 20 7b 5b 77 72 |on {} {.|.if {[wr|
|00002270| 61 70 4f 62 6a 65 63 74 | 20 22 5c 5c 73 75 62 73 |apObject| "\\subs|
|00002280| 65 63 74 69 6f 6e 7b 22 | 20 22 7d a5 22 5d 7d 20 |ection{"| "}."]} |
|00002290| 74 68 65 6e 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |then {..|.message|
|000022a0| 20 22 64 6f 6e 27 74 20 | 66 6f 72 67 65 74 20 6c | "don't |forget l|
|000022b0| 61 62 65 6c 22 0d 09 7d | 20 65 6c 73 65 20 7b 0d |abel"..}| else {.|
|000022c0| 09 09 6d 65 73 73 61 67 | 65 20 22 74 79 70 65 20 |..messag|e "type |
|000022d0| 70 61 72 74 20 6e 61 6d | 65 22 0d 09 7d 0d 7d 0d |part nam|e"..}.}.|
|000022e0| 70 72 6f 63 20 73 75 62 | 73 75 62 73 65 63 74 69 |proc sub|subsecti|
|000022f0| 6f 6e 20 7b 7d 20 7b 0d | 09 69 66 20 7b 5b 77 72 |on {} {.|.if {[wr|
|00002300| 61 70 4f 62 6a 65 63 74 | 20 22 5c 5c 73 75 62 73 |apObject| "\\subs|
|00002310| 75 62 73 65 63 74 69 6f | 6e 7b 22 20 22 7d a5 22 |ubsectio|n{" "}."|
|00002320| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 6d 65 73 73 |]} then |{...mess|
|00002330| 61 67 65 20 22 64 6f 6e | 27 74 20 66 6f 72 67 65 |age "don|'t forge|
|00002340| 74 20 6c 61 62 65 6c 22 | 0d 09 7d 20 65 6c 73 65 |t label"|..} else|
|00002350| 20 7b 0d 09 09 6d 65 73 | 73 61 67 65 20 22 74 79 | {...mes|sage "ty|
|00002360| 70 65 20 70 61 72 74 20 | 6e 61 6d 65 22 0d 09 7d |pe part |name"..}|
|00002370| 0d 7d 0d 70 72 6f 63 20 | 70 61 72 61 67 72 61 70 |.}.proc |paragrap|
|00002380| 68 20 7b 7d 20 7b 0d 09 | 69 66 20 7b 5b 77 72 61 |h {} {..|if {[wra|
|00002390| 70 4f 62 6a 65 63 74 20 | 22 5c 5c 70 61 72 61 67 |pObject |"\\parag|
|000023a0| 72 61 70 68 7b 22 20 22 | 7d a5 22 5d 7d 20 74 68 |raph{" "|}."]} th|
|000023b0| 65 6e 20 7b 0d 09 09 6d | 65 73 73 61 67 65 20 22 |en {...m|essage "|
|000023c0| 64 6f 6e 27 74 20 66 6f | 72 67 65 74 20 6c 61 62 |don't fo|rget lab|
|000023d0| 65 6c 22 0d 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |el"..} e|lse {...|
|000023e0| 6d 65 73 73 61 67 65 20 | 22 74 79 70 65 20 70 61 |message |"type pa|
|000023f0| 72 74 20 6e 61 6d 65 22 | 0d 09 7d 0d 7d 0d 70 72 |rt name"|..}.}.pr|
|00002400| 6f 63 20 73 75 62 70 61 | 72 61 67 72 61 70 68 20 |oc subpa|ragraph |
|00002410| 7b 7d 20 7b 0d 09 69 66 | 20 7b 5b 77 72 61 70 4f |{} {..if| {[wrapO|
|00002420| 62 6a 65 63 74 20 22 5c | 5c 73 75 62 70 61 72 61 |bject "\|\subpara|
|00002430| 67 72 61 70 68 7b 22 20 | 22 7d a5 22 5d 7d 20 74 |graph{" |"}."]} t|
|00002440| 68 65 6e 20 7b 0d 09 09 | 6d 65 73 73 61 67 65 20 |hen {...|message |
|00002450| 22 64 6f 6e 27 74 20 66 | 6f 72 67 65 74 20 6c 61 |"don't f|orget la|
|00002460| 62 65 6c 22 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |bel"..} |else {..|
|00002470| 09 6d 65 73 73 61 67 65 | 20 22 74 79 70 65 20 70 |.message| "type p|
|00002480| 61 72 74 20 6e 61 6d 65 | 22 0d 09 7d 0d 7d 0d 0d |art name|"..}.}..|
|00002490| 23 20 44 65 66 69 6e 69 | 74 69 6f 6e 73 3a 0d 70 |# Defini|tions:.p|
|000024a0| 72 6f 63 20 6d 79 4c 69 | 73 74 20 7b 7d 20 7b 61 |roc myLi|st {} {a|
|000024b0| 6c 65 72 74 6e 6f 74 65 | 20 22 4e 6f 74 20 79 65 |lertnote| "Not ye|
|000024c0| 74 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 2e 22 7d |t implem|ented."}|
|000024d0| 0d 70 72 6f 63 20 6e 65 | 77 63 6f 6d 6d 61 6e 64 |.proc ne|wcommand|
|000024e0| 20 7b 7d 20 7b 61 6c 65 | 72 74 6e 6f 74 65 20 22 | {} {ale|rtnote "|
|000024f0| 4e 6f 74 20 79 65 74 20 | 69 6d 70 6c 65 6d 65 6e |Not yet |implemen|
|00002500| 74 65 64 2e 22 7d 0d 70 | 72 6f 63 20 6e 65 77 65 |ted."}.p|roc newe|
|00002510| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 7b 7d 20 7b 61 |nvironme|nt {} {a|
|00002520| 6c 65 72 74 6e 6f 74 65 | 20 22 4e 6f 74 20 79 65 |lertnote| "Not ye|
|00002530| 74 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 2e 22 7d |t implem|ented."}|
|00002540| 0d 70 72 6f 63 20 6e 65 | 77 74 68 65 6f 72 65 6d |.proc ne|wtheorem|
|00002550| 20 7b 7d 20 7b 61 6c 65 | 72 74 6e 6f 74 65 20 22 | {} {ale|rtnote "|
|00002560| 4e 6f 74 20 79 65 74 20 | 69 6d 70 6c 65 6d 65 6e |Not yet |implemen|
|00002570| 74 65 64 2e 22 7d 0d 70 | 72 6f 63 20 72 65 6e 65 |ted."}.p|roc rene|
|00002580| 77 63 6f 6d 6d 61 6e 64 | 20 7b 7d 20 7b 61 6c 65 |wcommand| {} {ale|
|00002590| 72 74 6e 6f 74 65 20 22 | 4e 6f 74 20 79 65 74 20 |rtnote "|Not yet |
|000025a0| 69 6d 70 6c 65 6d 65 6e | 74 65 64 2e 22 7d 0d 70 |implemen|ted."}.p|
|000025b0| 72 6f 63 20 72 65 6e 65 | 77 65 6e 76 69 72 6f 6e |roc rene|wenviron|
|000025c0| 6d 65 6e 74 20 7b 7d 20 | 7b 61 6c 65 72 74 6e 6f |ment {} |{alertno|
|000025d0| 74 65 20 22 4e 6f 74 20 | 79 65 74 20 69 6d 70 6c |te "Not |yet impl|
|000025e0| 65 6d 65 6e 74 65 64 2e | 22 7d 0d 0d 23 20 54 65 |emented.|"}..# Te|
|000025f0| 78 74 20 53 74 79 6c 65 | 3a 0d 70 72 6f 63 20 72 |xt Style|:.proc r|
|00002600| 6f 6d 61 6e 20 7b 7d 20 | 7b 0d 09 69 66 20 7b 5b |oman {} |{..if {[|
|00002610| 77 72 61 70 4f 62 6a 65 | 63 74 20 22 7b 5c 5c 72 |wrapObje|ct "{\\r|
|00002620| 6d 20 22 20 22 7d a5 22 | 5d 7d 20 74 68 65 6e 20 |m " "}."|]} then |
|00002630| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 72 6f 6d |{...mess|age "rom|
|00002640| 61 6e 20 74 65 78 74 20 | 73 65 74 22 0d 09 7d 20 |an text |set"..} |
|00002650| 65 6c 73 65 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |else {..|.message|
|00002660| 20 22 65 6e 74 65 72 20 | 72 6f 6d 61 6e 20 74 65 | "enter |roman te|
|00002670| 78 74 22 0d 09 7d 0d 7d | 0d 70 72 6f 63 20 62 6f |xt"..}.}|.proc bo|
|00002680| 6c 64 20 7b 7d 20 7b 0d | 09 69 66 20 7b 5b 77 72 |ld {} {.|.if {[wr|
|00002690| 61 70 4f 62 6a 65 63 74 | 20 22 7b 5c 5c 62 66 20 |apObject| "{\\bf |
|000026a0| 22 20 22 7d a5 22 5d 7d | 20 74 68 65 6e 20 7b 0d |" "}."]}| then {.|
|000026b0| 09 09 6d 65 73 73 61 67 | 65 20 22 62 6f 6c 64 20 |..messag|e "bold |
|000026c0| 74 65 78 74 20 73 65 74 | 22 0d 09 7d 20 65 6c 73 |text set|"..} els|
|000026d0| 65 20 7b 0d 09 09 6d 65 | 73 73 61 67 65 20 22 65 |e {...me|ssage "e|
|000026e0| 6e 74 65 72 20 62 6f 6c | 64 20 74 65 78 74 22 0d |nter bol|d text".|
|000026f0| 09 7d 0d 7d 0d 70 72 6f | 63 20 69 74 61 6c 69 63 |.}.}.pro|c italic|
|00002700| 20 7b 7d 20 7b 0d 09 69 | 66 20 7b 5b 77 72 61 70 | {} {..i|f {[wrap|
|00002710| 4f 62 6a 65 63 74 20 22 | 7b 5c 5c 69 74 20 22 20 |Object "|{\\it " |
|00002720| 22 5c 5c 2f 7d a5 22 5d | 7d 20 74 68 65 6e 20 7b |"\\/}."]|} then {|
|00002730| 0d 09 09 69 6e 73 65 72 | 74 54 65 78 74 20 22 a5 |...inser|tText ".|
|00002740| 22 0d 09 09 62 61 63 6b | 77 61 72 64 43 68 61 72 |"...back|wardChar|
|00002750| 0d 09 09 62 61 63 6b 77 | 61 72 64 43 68 61 72 0d |...backw|ardChar.|
|00002760| 09 7d 0d 09 6d 65 73 73 | 61 67 65 20 22 69 74 61 |.}..mess|age "ita|
|00002770| 6c 69 63 20 63 6f 72 72 | 65 63 74 69 6f 6e 3f 22 |lic corr|ection?"|
|00002780| 0d 7d 0d 70 72 6f 63 20 | 65 6d 70 68 61 74 69 63 |.}.proc |emphatic|
|00002790| 20 7b 7d 20 7b 0d 09 69 | 66 20 7b 5b 77 72 61 70 | {} {..i|f {[wrap|
|000027a0| 4f 62 6a 65 63 74 20 22 | 7b 5c 5c 65 6d 20 22 20 |Object "|{\\em " |
|000027b0| 22 5c 5c 2f 7d a5 22 5d | 7d 20 74 68 65 6e 20 7b |"\\/}."]|} then {|
|000027c0| 0d 09 09 69 6e 73 65 72 | 74 54 65 78 74 20 22 a5 |...inser|tText ".|
|000027d0| 22 0d 09 09 62 61 63 6b | 77 61 72 64 43 68 61 72 |"...back|wardChar|
|000027e0| 0d 09 09 62 61 63 6b 77 | 61 72 64 43 68 61 72 0d |...backw|ardChar.|
|000027f0| 09 7d 0d 09 6d 65 73 73 | 61 67 65 20 22 65 6d 70 |.}..mess|age "emp|
|00002800| 68 61 74 69 63 20 63 6f | 72 72 65 63 74 69 6f 6e |hatic co|rrection|
|00002810| 3f 22 0d 7d 0d 70 72 6f | 63 20 73 6c 61 6e 74 65 |?".}.pro|c slante|
|00002820| 64 20 7b 7d 20 7b 0d 09 | 69 66 20 7b 5b 77 72 61 |d {} {..|if {[wra|
|00002830| 70 4f 62 6a 65 63 74 20 | 22 7b 5c 5c 73 6c 20 22 |pObject |"{\\sl "|
|00002840| 20 22 5c 5c 2f 7d a5 22 | 5d 7d 20 74 68 65 6e 20 | "\\/}."|]} then |
|00002850| 7b 0d 09 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |{...inse|rtText "|
|00002860| a5 22 0d 09 09 62 61 63 | 6b 77 61 72 64 43 68 61 |."...bac|kwardCha|
|00002870| 72 0d 09 09 62 61 63 6b | 77 61 72 64 43 68 61 72 |r...back|wardChar|
|00002880| 0d 09 7d 0d 09 6d 65 73 | 73 61 67 65 20 22 69 74 |..}..mes|sage "it|
|00002890| 61 6c 69 63 20 63 6f 72 | 72 65 63 74 69 6f 6e 3f |alic cor|rection?|
|000028a0| 22 0d 7d 0d 70 72 6f 63 | 20 73 61 6e 73 53 65 72 |".}.proc| sansSer|
|000028b0| 69 66 20 7b 7d 20 7b 0d | 09 69 66 20 7b 5b 77 72 |if {} {.|.if {[wr|
|000028c0| 61 70 4f 62 6a 65 63 74 | 20 22 7b 5c 5c 73 66 20 |apObject| "{\\sf |
|000028d0| 22 20 22 7d a5 22 5d 7d | 20 74 68 65 6e 20 7b 0d |" "}."]}| then {.|
|000028e0| 09 09 6d 65 73 73 61 67 | 65 20 22 73 61 6e 73 20 |..messag|e "sans |
|000028f0| 73 65 72 69 66 20 74 65 | 78 74 20 73 65 74 22 0d |serif te|xt set".|
|00002900| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 6d 65 73 73 |.} else |{...mess|
|00002910| 61 67 65 20 22 65 6e 74 | 65 72 20 73 61 6e 73 20 |age "ent|er sans |
|00002920| 73 65 72 69 66 20 74 65 | 78 74 22 0d 09 7d 0d 7d |serif te|xt"..}.}|
|00002930| 0d 70 72 6f 63 20 73 6d | 61 6c 6c 43 61 70 73 20 |.proc sm|allCaps |
|00002940| 7b 7d 20 7b 0d 09 69 66 | 20 7b 5b 77 72 61 70 4f |{} {..if| {[wrapO|
|00002950| 62 6a 65 63 74 20 22 7b | 5c 5c 73 63 20 22 20 22 |bject "{|\\sc " "|
|00002960| 7d a5 22 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 6d |}."]} th|en {...m|
|00002970| 65 73 73 61 67 65 20 22 | 73 6d 61 6c 6c 20 63 61 |essage "|small ca|
|00002980| 70 73 20 74 65 78 74 20 | 73 65 74 22 0d 09 7d 20 |ps text |set"..} |
|00002990| 65 6c 73 65 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |else {..|.message|
|000029a0| 20 22 65 6e 74 65 72 20 | 73 6d 61 6c 6c 20 63 61 | "enter |small ca|
|000029b0| 70 73 20 74 65 78 74 22 | 0d 09 7d 0d 7d 0d 70 72 |ps text"|..}.}.pr|
|000029c0| 6f 63 20 74 79 70 65 77 | 72 69 74 65 72 20 7b 7d |oc typew|riter {}|
|000029d0| 20 7b 0d 09 69 66 20 7b | 5b 77 72 61 70 4f 62 6a | {..if {|[wrapObj|
|000029e0| 65 63 74 20 22 7b 5c 5c | 74 74 20 22 20 22 7d a5 |ect "{\\|tt " "}.|
|000029f0| 22 5d 7d 20 74 68 65 6e | 20 7b 0d 09 09 6d 65 73 |"]} then| {...mes|
|00002a00| 73 61 67 65 20 22 74 79 | 70 65 77 72 69 74 65 72 |sage "ty|pewriter|
|00002a10| 20 74 65 78 74 20 73 65 | 74 22 0d 09 7d 20 65 6c | text se|t"..} el|
|00002a20| 73 65 20 7b 0d 09 09 6d | 65 73 73 61 67 65 20 22 |se {...m|essage "|
|00002a30| 65 6e 74 65 72 20 74 79 | 70 65 77 72 69 74 65 72 |enter ty|pewriter|
|00002a40| 20 74 65 78 74 22 0d 09 | 7d 0d 7d 0d 0d 23 20 54 | text"..|}.}..# T|
|00002a50| 65 78 74 20 53 69 7a 65 | 3a 0d 70 72 6f 63 20 74 |ext Size|:.proc t|
|00002a60| 69 6e 79 20 7b 7d 20 7b | 0d 09 69 66 20 7b 5b 77 |iny {} {|..if {[w|
|00002a70| 72 61 70 4f 62 6a 65 63 | 74 20 22 7b 5c 5c 74 69 |rapObjec|t "{\\ti|
|00002a80| 6e 79 20 22 20 22 7d a5 | 22 5d 7d 20 74 68 65 6e |ny " "}.|"]} then|
|00002a90| 20 7b 0d 09 09 6d 65 73 | 73 61 67 65 20 22 74 69 | {...mes|sage "ti|
|00002aa0| 6e 79 20 74 65 78 74 20 | 73 65 74 22 0d 09 7d 20 |ny text |set"..} |
|00002ab0| 65 6c 73 65 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |else {..|.message|
|00002ac0| 20 22 65 6e 74 65 72 20 | 74 69 6e 79 20 74 65 78 | "enter |tiny tex|
|00002ad0| 74 22 0d 09 7d 0d 7d 0d | 70 72 6f 63 20 73 6d 61 |t"..}.}.|proc sma|
|00002ae0| 6c 6c 65 73 74 20 7b 7d | 20 7b 0d 09 69 66 20 7b |llest {}| {..if {|
|00002af0| 5b 77 72 61 70 4f 62 6a | 65 63 74 20 22 7b 5c 5c |[wrapObj|ect "{\\|
|00002b00| 73 63 72 69 70 74 73 69 | 7a 65 20 22 20 22 7d a5 |scriptsi|ze " "}.|
|00002b10| 22 5d 7d 20 74 68 65 6e | 20 7b 0d 09 09 6d 65 73 |"]} then| {...mes|
|00002b20| 73 61 67 65 20 22 73 63 | 72 69 70 74 73 69 7a 65 |sage "sc|riptsize|
|00002b30| 20 74 65 78 74 20 73 65 | 74 22 0d 09 7d 20 65 6c | text se|t"..} el|
|00002b40| 73 65 20 7b 0d 09 09 6d | 65 73 73 61 67 65 20 22 |se {...m|essage "|
|00002b50| 65 6e 74 65 72 20 73 63 | 72 69 70 74 73 69 7a 65 |enter sc|riptsize|
|00002b60| 20 74 65 78 74 22 0d 09 | 7d 0d 7d 0d 70 72 6f 63 | text"..|}.}.proc|
|00002b70| 20 73 6d 61 6c 6c 65 72 | 20 7b 7d 20 7b 0d 09 69 | smaller| {} {..i|
|00002b80| 66 20 7b 5b 77 72 61 70 | 4f 62 6a 65 63 74 20 22 |f {[wrap|Object "|
|00002b90| 7b 5c 5c 66 6f 6f 74 6e | 6f 74 65 73 69 7a 65 20 |{\\footn|otesize |
|00002ba0| 22 20 22 7d a5 22 5d 7d | 20 74 68 65 6e 20 7b 0d |" "}."]}| then {.|
|00002bb0| 09 09 6d 65 73 73 61 67 | 65 20 22 66 6f 6f 74 6e |..messag|e "footn|
|00002bc0| 6f 74 65 73 69 7a 65 20 | 74 65 78 74 20 73 65 74 |otesize |text set|
|00002bd0| 22 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 6d 65 |"..} els|e {...me|
|00002be0| 73 73 61 67 65 20 22 65 | 6e 74 65 72 20 66 6f 6f |ssage "e|nter foo|
|00002bf0| 74 6e 6f 74 65 73 69 7a | 65 20 74 65 78 74 22 0d |tnotesiz|e text".|
|00002c00| 09 7d 0d 7d 0d 70 72 6f | 63 20 73 6d 61 6c 6c 20 |.}.}.pro|c small |
|00002c10| 7b 7d 20 7b 0d 09 69 66 | 20 7b 5b 77 72 61 70 4f |{} {..if| {[wrapO|
|00002c20| 62 6a 65 63 74 20 22 7b | 5c 5c 73 6d 61 6c 6c 20 |bject "{|\\small |
|00002c30| 22 20 22 7d a5 22 5d 7d | 20 74 68 65 6e 20 7b 0d |" "}."]}| then {.|
|00002c40| 09 09 6d 65 73 73 61 67 | 65 20 22 73 6d 61 6c 6c |..messag|e "small|
|00002c50| 20 74 65 78 74 20 73 65 | 74 22 0d 09 7d 20 65 6c | text se|t"..} el|
|00002c60| 73 65 20 7b 0d 09 09 6d | 65 73 73 61 67 65 20 22 |se {...m|essage "|
|00002c70| 65 6e 74 65 72 20 73 6d | 61 6c 6c 20 74 65 78 74 |enter sm|all text|
|00002c80| 22 0d 09 7d 0d 7d 0d 70 | 72 6f 63 20 6e 6f 72 6d |"..}.}.p|roc norm|
|00002c90| 61 6c 20 7b 7d 20 7b 0d | 09 69 66 20 7b 5b 77 72 |al {} {.|.if {[wr|
|00002ca0| 61 70 4f 62 6a 65 63 74 | 20 22 7b 5c 5c 6e 6f 72 |apObject| "{\\nor|
|00002cb0| 6d 61 6c 73 69 7a 65 20 | 22 20 22 7d a5 22 5d 7d |malsize |" "}."]}|
|00002cc0| 20 74 68 65 6e 20 7b 0d | 09 09 6d 65 73 73 61 67 | then {.|..messag|
|00002cd0| 65 20 22 6e 6f 72 6d 61 | 6c 73 69 7a 65 20 74 65 |e "norma|lsize te|
|00002ce0| 78 74 20 73 65 74 22 0d | 09 7d 20 65 6c 73 65 20 |xt set".|.} else |
|00002cf0| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 65 6e 74 |{...mess|age "ent|
|00002d00| 65 72 20 6e 6f 72 6d 61 | 6c 73 69 7a 65 20 74 65 |er norma|lsize te|
|00002d10| 78 74 22 0d 09 7d 0d 7d | 0d 70 72 6f 63 20 6c 61 |xt"..}.}|.proc la|
|00002d20| 72 67 65 20 7b 7d 20 7b | 0d 09 69 66 20 7b 5b 77 |rge {} {|..if {[w|
|00002d30| 72 61 70 4f 62 6a 65 63 | 74 20 22 7b 5c 5c 6c 61 |rapObjec|t "{\\la|
|00002d40| 72 67 65 20 22 20 22 7d | a5 22 5d 7d 20 74 68 65 |rge " "}|."]} the|
|00002d50| 6e 20 7b 0d 09 09 6d 65 | 73 73 61 67 65 20 22 6c |n {...me|ssage "l|
|00002d60| 61 72 67 65 20 74 65 78 | 74 20 73 65 74 22 0d 09 |arge tex|t set"..|
|00002d70| 7d 20 65 6c 73 65 20 7b | 0d 09 09 6d 65 73 73 61 |} else {|...messa|
|00002d80| 67 65 20 22 65 6e 74 65 | 72 20 6c 61 72 67 65 20 |ge "ente|r large |
|00002d90| 74 65 78 74 22 0d 09 7d | 0d 7d 0d 70 72 6f 63 20 |text"..}|.}.proc |
|00002da0| 6c 61 72 67 65 72 20 7b | 7d 20 7b 0d 09 69 66 20 |larger {|} {..if |
|00002db0| 7b 5b 77 72 61 70 4f 62 | 6a 65 63 74 20 22 7b 5c |{[wrapOb|ject "{\|
|00002dc0| 5c 4c 61 72 67 65 20 22 | 20 22 7d a5 22 5d 7d 20 |\Large "| "}."]} |
|00002dd0| 74 68 65 6e 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |then {..|.message|
|00002de0| 20 22 4c 61 72 67 65 20 | 74 65 78 74 20 73 65 74 | "Large |text set|
|00002df0| 22 0d 09 7d 20 65 6c 73 | 65 20 7b 0d 09 09 6d 65 |"..} els|e {...me|
|00002e00| 73 73 61 67 65 20 22 65 | 6e 74 65 72 20 4c 61 72 |ssage "e|nter Lar|
|00002e10| 67 65 20 74 65 78 74 22 | 0d 09 7d 0d 7d 0d 70 72 |ge text"|..}.}.pr|
|00002e20| 6f 63 20 6c 61 72 67 65 | 73 74 20 7b 7d 20 7b 0d |oc large|st {} {.|
|00002e30| 09 69 66 20 7b 5b 77 72 | 61 70 4f 62 6a 65 63 74 |.if {[wr|apObject|
|00002e40| 20 22 7b 5c 5c 4c 41 52 | 47 45 20 22 20 22 7d a5 | "{\\LAR|GE " "}.|
|00002e50| 22 5d 7d 20 74 68 65 6e | 20 7b 0d 09 09 6d 65 73 |"]} then| {...mes|
|00002e60| 73 61 67 65 20 22 4c 41 | 52 47 45 20 74 65 78 74 |sage "LA|RGE text|
|00002e70| 20 73 65 74 22 0d 09 7d | 20 65 6c 73 65 20 7b 0d | set"..}| else {.|
|00002e80| 09 09 6d 65 73 73 61 67 | 65 20 22 65 6e 74 65 72 |..messag|e "enter|
|00002e90| 20 4c 41 52 47 45 20 74 | 65 78 74 22 0d 09 7d 0d | LARGE t|ext"..}.|
|00002ea0| 7d 0d 70 72 6f 63 20 68 | 75 67 65 20 7b 7d 20 7b |}.proc h|uge {} {|
|00002eb0| 0d 09 69 66 20 7b 5b 77 | 72 61 70 4f 62 6a 65 63 |..if {[w|rapObjec|
|00002ec0| 74 20 22 7b 5c 5c 68 75 | 67 65 20 22 20 22 7d a5 |t "{\\hu|ge " "}.|
|00002ed0| 22 5d 7d 20 74 68 65 6e | 20 7b 0d 09 09 6d 65 73 |"]} then| {...mes|
|00002ee0| 73 61 67 65 20 22 68 75 | 67 65 20 74 65 78 74 20 |sage "hu|ge text |
|00002ef0| 73 65 74 22 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |set"..} |else {..|
|00002f00| 09 6d 65 73 73 61 67 65 | 20 22 65 6e 74 65 72 20 |.message| "enter |
|00002f10| 68 75 67 65 20 74 65 78 | 74 22 0d 09 7d 0d 7d 0d |huge tex|t"..}.}.|
|00002f20| 70 72 6f 63 20 67 69 67 | 61 6e 74 69 63 20 7b 7d |proc gig|antic {}|
|00002f30| 20 7b 0d 09 69 66 20 7b | 5b 77 72 61 70 4f 62 6a | {..if {|[wrapObj|
|00002f40| 65 63 74 20 22 7b 5c 5c | 48 75 67 65 20 22 20 22 |ect "{\\|Huge " "|
|00002f50| 7d a5 22 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 6d |}."]} th|en {...m|
|00002f60| 65 73 73 61 67 65 20 22 | 48 75 67 65 20 74 65 78 |essage "|Huge tex|
|00002f70| 74 20 73 65 74 22 0d 09 | 7d 20 65 6c 73 65 20 7b |t set"..|} else {|
|00002f80| 0d 09 09 6d 65 73 73 61 | 67 65 20 22 65 6e 74 65 |...messa|ge "ente|
|00002f90| 72 20 48 75 67 65 20 74 | 65 78 74 22 0d 09 7d 0d |r Huge t|ext"..}.|
|00002fa0| 7d 0d 0d 23 20 49 6e 74 | 65 72 6e 61 74 69 6f 6e |}..# Int|ernation|
|00002fb0| 61 6c 3a 20 20 6e 6f 74 | 20 79 65 74 20 69 6d 70 |al:  not| yet imp|
|00002fc0| 6c 65 6d 65 6e 74 65 64 | 2e 0d 0d 23 20 45 6e 76 |lemented|...# Env|
|00002fd0| 69 72 6f 6e 6d 65 6e 74 | 73 3a 0d 70 72 6f 63 20 |ironment|s:.proc |
|00002fe0| 65 6e 75 6d 65 72 61 74 | 65 20 7b 7d 20 7b 0d 09 |enumerat|e {} {..|
|00002ff0| 63 61 74 63 68 20 7b 70 | 72 6f 6d 70 74 20 22 65 |catch {p|rompt "e|
|00003000| 6e 75 6d 65 72 61 74 65 | 3a 20 20 68 6f 77 20 6d |numerate|:  how m|
|00003010| 61 6e 79 20 69 74 65 6d | 73 3f 22 20 33 7d 20 6e |any item|s?" 3} n|
|00003020| 75 6d 62 65 72 49 74 65 | 6d 73 0d 09 69 66 20 7b |umberIte|ms..if {|
|00003030| 24 6e 75 6d 62 65 72 49 | 74 65 6d 73 20 21 3d 20 |$numberI|tems != |
|00003040| 22 63 61 6e 63 65 6c 22 | 7d 20 74 68 65 6e 20 7b |"cancel"|} then {|
|00003050| 0d 09 09 73 65 74 20 63 | 75 72 72 65 6e 74 50 6f |...set c|urrentPo|
|00003060| 73 20 5b 67 65 74 50 6f | 73 5d 0d 09 09 69 66 20 |s [getPo|s]...if |
|00003070| 7b 5b 69 6e 73 65 72 74 | 45 6e 76 69 72 6f 6e 6d |{[insert|Environm|
|00003080| 65 6e 74 20 22 65 6e 75 | 6d 65 72 61 74 65 22 20 |ent "enu|merate" |
|00003090| 30 5d 7d 20 74 68 65 6e | 20 7b 0d 09 09 09 69 74 |0]} then| {....it|
|000030a0| 65 6d 0d 09 09 09 69 6e | 73 65 72 74 54 65 78 74 |em....in|sertText|
|000030b0| 20 22 20 20 a5 22 0d 09 | 09 09 66 6f 72 20 7b 73 | "  ."..|..for {s|
|000030c0| 65 74 20 69 20 31 7d 20 | 7b 24 69 20 3c 20 24 6e |et i 1} |{$i < $n|
|000030d0| 75 6d 62 65 72 49 74 65 | 6d 73 7d 20 7b 69 6e 63 |umberIte|ms} {inc|
|000030e0| 72 20 69 7d 20 7b 0d 09 | 09 09 09 63 61 72 72 69 |r i} {..|...carri|
|000030f0| 61 67 65 52 65 74 75 72 | 6e 0d 09 09 09 09 63 61 |ageRetur|n.....ca|
|00003100| 72 72 69 61 67 65 52 65 | 74 75 72 6e 0d 09 09 09 |rriageRe|turn....|
|00003110| 09 69 74 65 6d 0d 09 09 | 09 09 69 6e 73 65 72 74 |.item...|..insert|
|00003120| 54 65 78 74 20 22 20 20 | a5 22 0d 09 09 09 7d 0d |Text "  |."....}.|
|00003130| 09 09 09 67 6f 74 6f 20 | 24 63 75 72 72 65 6e 74 |...goto |$current|
|00003140| 50 6f 73 0d 09 09 09 6e | 65 78 74 54 61 62 53 74 |Pos....n|extTabSt|
|00003150| 6f 70 0d 09 09 09 6d 65 | 73 73 61 67 65 20 22 54 |op....me|ssage "T|
|00003160| 79 70 65 20 66 69 72 73 | 74 20 69 74 65 6d 22 0d |ype firs|t item".|
|00003170| 09 09 7d 0d 09 7d 0d 7d | 0d 70 72 6f 63 20 69 74 |..}..}.}|.proc it|
|00003180| 65 6d 69 7a 65 20 7b 7d | 20 7b 0d 09 63 61 74 63 |emize {}| {..catc|
|00003190| 68 20 7b 70 72 6f 6d 70 | 74 20 22 69 74 65 6d 69 |h {promp|t "itemi|
|000031a0| 7a 65 3a 20 20 68 6f 77 | 20 6d 61 6e 79 20 69 74 |ze:  how| many it|
|000031b0| 65 6d 73 3f 22 20 33 7d | 20 6e 75 6d 62 65 72 49 |ems?" 3}| numberI|
|000031c0| 74 65 6d 73 0d 09 69 66 | 20 7b 24 6e 75 6d 62 65 |tems..if| {$numbe|
|000031d0| 72 49 74 65 6d 73 20 21 | 3d 20 22 63 61 6e 63 65 |rItems !|= "cance|
|000031e0| 6c 22 7d 20 74 68 65 6e | 20 7b 0d 09 09 73 65 74 |l"} then| {...set|
|000031f0| 20 63 75 72 72 65 6e 74 | 50 6f 73 20 5b 67 65 74 | current|Pos [get|
|00003200| 50 6f 73 5d 0d 09 09 69 | 66 20 7b 5b 69 6e 73 65 |Pos]...i|f {[inse|
|00003210| 72 74 45 6e 76 69 72 6f | 6e 6d 65 6e 74 20 22 69 |rtEnviro|nment "i|
|00003220| 74 65 6d 69 7a 65 22 20 | 30 5d 7d 20 74 68 65 6e |temize" |0]} then|
|00003230| 20 7b 0d 09 09 09 69 74 | 65 6d 0d 09 09 09 69 6e | {....it|em....in|
|00003240| 73 65 72 74 54 65 78 74 | 20 22 20 20 a5 22 0d 09 |sertText| "  ."..|
|00003250| 09 09 66 6f 72 20 7b 73 | 65 74 20 69 20 31 7d 20 |..for {s|et i 1} |
|00003260| 7b 24 69 20 3c 20 24 6e | 75 6d 62 65 72 49 74 65 |{$i < $n|umberIte|
|00003270| 6d 73 7d 20 7b 69 6e 63 | 72 20 69 7d 20 7b 0d 09 |ms} {inc|r i} {..|
|00003280| 09 09 09 63 61 72 72 69 | 61 67 65 52 65 74 75 72 |...carri|ageRetur|
|00003290| 6e 0d 09 09 09 09 63 61 | 72 72 69 61 67 65 52 65 |n.....ca|rriageRe|
|000032a0| 74 75 72 6e 0d 09 09 09 | 09 69 74 65 6d 0d 09 09 |turn....|.item...|
|000032b0| 09 09 69 6e 73 65 72 74 | 54 65 78 74 20 22 20 20 |..insert|Text "  |
|000032c0| a5 22 0d 09 09 09 7d 0d | 09 09 09 67 6f 74 6f 20 |."....}.|...goto |
|000032d0| 24 63 75 72 72 65 6e 74 | 50 6f 73 0d 09 09 09 6e |$current|Pos....n|
|000032e0| 65 78 74 54 61 62 53 74 | 6f 70 0d 09 09 09 6d 65 |extTabSt|op....me|
|000032f0| 73 73 61 67 65 20 22 54 | 79 70 65 20 66 69 72 73 |ssage "T|ype firs|
|00003300| 74 20 69 74 65 6d 22 0d | 09 09 7d 0d 09 7d 0d 7d |t item".|..}..}.}|
|00003310| 0d 70 72 6f 63 20 64 65 | 73 63 72 69 70 74 69 6f |.proc de|scriptio|
|00003320| 6e 20 7b 7d 20 7b 0d 09 | 63 61 74 63 68 20 7b 70 |n {} {..|catch {p|
|00003330| 72 6f 6d 70 74 20 22 64 | 65 73 63 72 69 70 74 69 |rompt "d|escripti|
|00003340| 6f 6e 3a 20 68 6f 77 20 | 6d 61 6e 79 20 69 74 65 |on: how |many ite|
|00003350| 6d 73 3f 22 20 33 7d 20 | 6e 75 6d 62 65 72 49 74 |ms?" 3} |numberIt|
|00003360| 65 6d 73 0d 09 69 66 20 | 7b 24 6e 75 6d 62 65 72 |ems..if |{$number|
|00003370| 49 74 65 6d 73 20 21 3d | 20 22 63 61 6e 63 65 6c |Items !=| "cancel|
|00003380| 22 7d 20 74 68 65 6e 20 | 7b 0d 09 09 73 65 74 20 |"} then |{...set |
|00003390| 63 75 72 72 65 6e 74 50 | 6f 73 20 5b 67 65 74 50 |currentP|os [getP|
|000033a0| 6f 73 5d 0d 09 09 69 66 | 20 7b 5b 69 6e 73 65 72 |os]...if| {[inser|
|000033b0| 74 45 6e 76 69 72 6f 6e | 6d 65 6e 74 20 22 64 65 |tEnviron|ment "de|
|000033c0| 73 63 72 69 70 74 69 6f | 6e 22 20 30 5d 7d 20 74 |scriptio|n" 0]} t|
|000033d0| 68 65 6e 20 7b 0d 09 09 | 09 69 74 65 6d 0d 09 09 |hen {...|.item...|
|000033e0| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 5c 5b a5 |.insertT|ext "\[.|
|000033f0| 5c 5d 20 20 a5 22 0d 09 | 09 09 66 6f 72 20 7b 73 |\]  ."..|..for {s|
|00003400| 65 74 20 69 20 31 7d 20 | 7b 24 69 20 3c 20 24 6e |et i 1} |{$i < $n|
|00003410| 75 6d 62 65 72 49 74 65 | 6d 73 7d 20 7b 69 6e 63 |umberIte|ms} {inc|
|00003420| 72 20 69 7d 20 7b 0d 09 | 09 09 09 63 61 72 72 69 |r i} {..|...carri|
|00003430| 61 67 65 52 65 74 75 72 | 6e 0d 09 09 09 09 63 61 |ageRetur|n.....ca|
|00003440| 72 72 69 61 67 65 52 65 | 74 75 72 6e 0d 09 09 09 |rriageRe|turn....|
|00003450| 09 69 74 65 6d 0d 09 09 | 09 09 69 6e 73 65 72 74 |.item...|..insert|
|00003460| 54 65 78 74 20 22 5c 5b | a5 5c 5d 20 20 a5 22 0d |Text "\[|.\]  .".|
|00003470| 09 09 09 7d 0d 09 09 09 | 67 6f 74 6f 20 24 63 75 |...}....|goto $cu|
|00003480| 72 72 65 6e 74 50 6f 73 | 0d 09 09 09 6e 65 78 74 |rrentPos|....next|
|00003490| 54 61 62 53 74 6f 70 0d | 09 09 09 6d 65 73 73 61 |TabStop.|...messa|
|000034a0| 67 65 20 22 54 79 70 65 | 20 66 69 72 73 74 20 69 |ge "Type| first i|
|000034b0| 74 65 6d 22 0d 09 09 7d | 0d 09 7d 0d 7d 0d 0d 70 |tem"...}|..}.}..p|
|000034c0| 72 6f 63 20 69 6e 73 65 | 72 74 52 6f 77 20 7b 6a |roc inse|rtRow {j|
|000034d0| 6d 61 78 7d 20 7b 0d 09 | 69 6e 73 65 72 74 54 65 |max} {..|insertTe|
|000034e0| 78 74 20 22 a5 22 0d 09 | 66 6f 72 20 7b 73 65 74 |xt "."..|for {set|
|000034f0| 20 6a 20 31 7d 20 7b 24 | 6a 20 3c 20 24 6a 6d 61 | j 1} {$|j < $jma|
|00003500| 78 7d 20 7b 69 6e 63 72 | 20 6a 7d 20 7b 0d 09 09 |x} {incr| j} {...|
|00003510| 69 6e 73 65 72 74 54 65 | 78 74 20 22 20 26 20 a5 |insertTe|xt " & .|
|00003520| 22 0d 09 7d 0d 7d 0d 70 | 72 6f 63 20 74 61 62 75 |"..}.}.p|roc tabu|
|00003530| 6c 61 72 20 7b 7d 20 7b | 0d 09 63 61 74 63 68 20 |lar {} {|..catch |
|00003540| 7b 70 72 6f 6d 70 74 20 | 22 74 61 62 75 6c 61 72 |{prompt |"tabular|
|00003550| 3a 20 20 68 6f 77 20 6d | 61 6e 79 20 72 6f 77 73 |:  how m|any rows|
|00003560| 3f 22 20 33 7d 20 6e 75 | 6d 62 65 72 52 6f 77 73 |?" 3} nu|mberRows|
|00003570| 0d 09 69 66 20 7b 24 6e | 75 6d 62 65 72 52 6f 77 |..if {$n|umberRow|
|00003580| 73 20 21 3d 20 22 63 61 | 6e 63 65 6c 22 7d 20 74 |s != "ca|ncel"} t|
|00003590| 68 65 6e 20 7b 0d 09 09 | 63 61 74 63 68 20 7b 70 |hen {...|catch {p|
|000035a0| 72 6f 6d 70 74 20 22 74 | 61 62 75 6c 61 72 3a 20 |rompt "t|abular: |
|000035b0| 20 68 6f 77 20 6d 61 6e | 79 20 63 6f 6c 75 6d 6e | how man|y column|
|000035c0| 73 3f 22 20 33 7d 20 6e | 75 6d 62 65 72 43 6f 6c |s?" 3} n|umberCol|
|000035d0| 73 0d 09 09 69 66 20 7b | 24 6e 75 6d 62 65 72 43 |s...if {|$numberC|
|000035e0| 6f 6c 73 20 21 3d 20 22 | 63 61 6e 63 65 6c 22 7d |ols != "|cancel"}|
|000035f0| 20 74 68 65 6e 20 7b 0d | 09 09 09 69 66 20 7b 5b | then {.|...if {[|
|00003600| 69 6e 73 65 72 74 45 6e | 76 69 72 6f 6e 6d 65 6e |insertEn|vironmen|
|00003610| 74 20 22 74 61 62 75 6c | 61 72 22 20 31 5d 7d 20 |t "tabul|ar" 1]} |
|00003620| 74 68 65 6e 20 7b 0d 09 | 09 09 09 73 65 74 20 62 |then {..|...set b|
|00003630| 65 67 69 6e 41 72 67 75 | 6d 65 6e 74 20 5b 67 65 |eginArgu|ment [ge|
|00003640| 74 50 6f 73 5d 0d 09 09 | 09 09 69 6e 73 65 72 74 |tPos]...|..insert|
|00003650| 54 65 78 74 20 22 7c 22 | 0d 09 09 09 09 66 6f 72 |Text "|"|.....for|
|00003660| 20 7b 73 65 74 20 6a 20 | 31 7d 20 7b 24 6a 20 3c | {set j |1} {$j <|
|00003670| 3d 20 24 6e 75 6d 62 65 | 72 43 6f 6c 73 7d 20 7b |= $numbe|rCols} {|
|00003680| 69 6e 63 72 20 6a 7d 20 | 7b 0d 09 09 09 09 09 69 |incr j} |{......i|
|00003690| 6e 73 65 72 74 54 65 78 | 74 20 22 63 7c 22 0d 09 |nsertTex|t "c|"..|
|000036a0| 09 09 09 7d 0d 09 09 09 | 09 73 65 74 20 65 6e 64 |...}....|.set end|
|000036b0| 41 72 67 75 6d 65 6e 74 | 20 5b 67 65 74 50 6f 73 |Argument| [getPos|
|000036c0| 5d 0d 09 09 09 09 6e 65 | 78 74 54 61 62 53 74 6f |].....ne|xtTabSto|
|000036d0| 70 0d 09 09 09 09 69 6e | 73 65 72 74 54 65 78 74 |p.....in|sertText|
|000036e0| 20 22 5c 5c 68 6c 69 6e | 65 22 0d 09 09 09 09 66 | "\\hlin|e".....f|
|000036f0| 6f 72 20 7b 73 65 74 20 | 69 20 31 7d 20 7b 24 69 |or {set |i 1} {$i|
|00003700| 20 3c 3d 20 24 6e 75 6d | 62 65 72 52 6f 77 73 7d | <= $num|berRows}|
|00003710| 20 7b 69 6e 63 72 20 69 | 7d 20 7b 0d 09 09 09 09 | {incr i|} {.....|
|00003720| 09 63 61 72 72 69 61 67 | 65 52 65 74 75 72 6e 0d |.carriag|eReturn.|
|00003730| 09 09 09 09 09 69 6e 73 | 65 72 74 52 6f 77 20 24 |.....ins|ertRow $|
|00003740| 6e 75 6d 62 65 72 43 6f | 6c 73 0d 09 09 09 09 09 |numberCo|ls......|
|00003750| 69 6e 73 65 72 74 54 65 | 78 74 20 22 20 20 5c 5c |insertTe|xt "  \\|
|00003760| 5c 5c 22 0d 09 09 09 09 | 09 63 61 72 72 69 61 67 |\\".....|.carriag|
|00003770| 65 52 65 74 75 72 6e 0d | 09 09 09 09 09 69 6e 73 |eReturn.|.....ins|
|00003780| 65 72 74 54 65 78 74 20 | 22 5c 5c 68 6c 69 6e 65 |ertText |"\\hline|
|00003790| 22 0d 09 09 09 09 7d 0d | 09 09 09 09 67 6f 74 6f |".....}.|....goto|
|000037a0| 20 24 62 65 67 69 6e 41 | 72 67 75 6d 65 6e 74 0d | $beginA|rgument.|
|000037b0| 09 09 09 09 73 65 74 4d | 61 72 6b 0d 09 09 09 09 |....setM|ark.....|
|000037c0| 67 6f 74 6f 20 24 65 6e | 64 41 72 67 75 6d 65 6e |goto $en|dArgumen|
|000037d0| 74 0d 09 09 09 09 6d 61 | 72 6b 48 69 6c 69 74 65 |t.....ma|rkHilite|
|000037e0| 0d 09 09 09 09 6d 65 73 | 73 61 67 65 20 22 6d 6f |.....mes|sage "mo|
|000037f0| 64 69 66 79 20 61 72 67 | 75 6d 65 6e 74 3f 22 0d |dify arg|ument?".|
|00003800| 09 09 09 7d 0d 09 09 7d | 0d 09 7d 0d 7d 0d 70 72 |...}...}|..}.}.pr|
|00003810| 6f 63 20 74 61 62 62 69 | 6e 67 20 7b 7d 20 7b 61 |oc tabbi|ng {} {a|
|00003820| 6c 65 72 74 6e 6f 74 65 | 20 22 4e 6f 74 20 79 65 |lertnote| "Not ye|
|00003830| 74 20 69 6d 70 6c 65 6d | 65 6e 74 65 64 2e 22 7d |t implem|ented."}|
|00003840| 0d 0d 70 72 6f 63 20 66 | 69 67 75 72 65 20 7b 7d |..proc f|igure {}|
|00003850| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 75 73 65 42 6f | {..glob|al useBo|
|00003860| 78 4d 61 63 72 6f 0d 09 | 67 6c 6f 62 61 6c 20 62 |xMacro..|global b|
|00003870| 6f 78 4d 61 63 72 6f 4e | 61 6d 65 0d 09 69 66 20 |oxMacroN|ame..if |
|00003880| 7b 24 75 73 65 42 6f 78 | 4d 61 63 72 6f 7d 20 74 |{$useBox|Macro} t|
|00003890| 68 65 6e 20 7b 0d 09 09 | 73 65 74 20 63 75 72 72 |hen {...|set curr|
|000038a0| 65 6e 74 50 6f 73 20 5b | 67 65 74 50 6f 73 5d 0d |entPos [|getPos].|
|000038b0| 09 09 69 66 20 7b 5b 69 | 6e 73 65 72 74 45 6e 76 |..if {[i|nsertEnv|
|000038c0| 69 72 6f 6e 6d 65 6e 74 | 20 22 66 69 67 75 72 65 |ironment| "figure|
|000038d0| 22 20 30 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 09 |" 0]} th|en {....|
|000038e0| 69 6e 73 65 72 74 54 65 | 78 74 20 22 5c 5c 63 65 |insertTe|xt "\\ce|
|000038f0| 6e 74 65 72 6c 69 6e 65 | 7b 5c 5c 24 62 6f 78 4d |nterline|{\\$boxM|
|00003900| 61 63 72 6f 4e 61 6d 65 | 7b a5 7d 7d 22 0d 09 09 |acroName|{.}}"...|
|00003910| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 72 65 74 75 |} else {|....retu|
|00003920| 72 6e 0d 09 09 7d 0d 09 | 7d 20 65 6c 73 65 20 7b |rn...}..|} else {|
|00003930| 0d 09 09 69 66 20 7b 5b | 77 72 61 70 45 6e 76 69 |...if {[|wrapEnvi|
|00003940| 72 6f 6e 6d 65 6e 74 20 | 22 66 69 67 75 72 65 22 |ronment |"figure"|
|00003950| 20 30 5d 7d 20 74 68 65 | 6e 20 7b 0d 09 09 09 66 | 0]} the|n {....f|
|00003960| 6f 72 77 61 72 64 43 68 | 61 72 0d 09 09 09 62 61 |orwardCh|ar....ba|
|00003970| 63 6b 77 61 72 64 43 68 | 61 72 0d 09 09 09 73 65 |ckwardCh|ar....se|
|00003980| 74 20 63 75 72 72 65 6e | 74 50 6f 73 20 5b 67 65 |t curren|tPos [ge|
|00003990| 74 50 6f 73 5d 0d 09 09 | 7d 20 65 6c 73 65 20 7b |tPos]...|} else {|
|000039a0| 0d 09 09 09 73 65 74 20 | 63 75 72 72 65 6e 74 50 |....set |currentP|
|000039b0| 6f 73 20 5b 67 65 74 50 | 6f 73 5d 0d 09 09 09 69 |os [getP|os]....i|
|000039c0| 6e 73 65 72 74 54 65 78 | 74 20 22 a5 22 0d 09 09 |nsertTex|t "."...|
|000039d0| 7d 0d 09 7d 0d 09 63 61 | 72 72 69 61 67 65 52 65 |}..}..ca|rriageRe|
|000039e0| 74 75 72 6e 0d 09 69 6e | 73 65 72 74 54 65 78 74 |turn..in|sertText|
|000039f0| 20 22 5c 5c 63 61 70 74 | 69 6f 6e 7b a5 7d 22 0d | "\\capt|ion{.}".|
|00003a00| 09 63 61 72 72 69 61 67 | 65 52 65 74 75 72 6e 0d |.carriag|eReturn.|
|00003a10| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 5c 5c 70 |.insertT|ext "\\p|
|00003a20| 72 6f 74 65 63 74 5c 5c | 6c 61 62 65 6c 7b a5 7d |rotect\\|label{.}|
|00003a30| 22 0d 09 67 6f 74 6f 20 | 24 63 75 72 72 65 6e 74 |"..goto |$current|
|00003a40| 50 6f 73 0d 09 6e 65 78 | 74 54 61 62 53 74 6f 70 |Pos..nex|tTabStop|
|00003a50| 0d 7d 0d 70 72 6f 63 20 | 74 61 62 6c 65 20 7b 7d |.}.proc |table {}|
|00003a60| 20 7b 0d 09 69 66 20 7b | 5b 77 72 61 70 45 6e 76 | {..if {|[wrapEnv|
|00003a70| 69 72 6f 6e 6d 65 6e 74 | 20 22 74 61 62 6c 65 22 |ironment| "table"|
|00003a80| 20 30 5d 7d 20 74 68 65 | 6e 20 7b 0d 09 09 66 6f | 0]} the|n {...fo|
|00003a90| 72 77 61 72 64 43 68 61 | 72 0d 09 09 62 61 63 6b |rwardCha|r...back|
|00003aa0| 77 61 72 64 43 68 61 72 | 0d 09 09 73 65 74 20 63 |wardChar|...set c|
|00003ab0| 75 72 72 65 6e 74 50 6f | 73 20 5b 67 65 74 50 6f |urrentPo|s [getPo|
|00003ac0| 73 5d 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 73 |s]..} el|se {...s|
|00003ad0| 65 74 20 63 75 72 72 65 | 6e 74 50 6f 73 20 5b 67 |et curre|ntPos [g|
|00003ae0| 65 74 50 6f 73 5d 0d 09 | 09 69 6e 73 65 72 74 54 |etPos]..|.insertT|
|00003af0| 65 78 74 20 22 a5 22 0d | 09 7d 0d 09 63 61 72 72 |ext ".".|.}..carr|
|00003b00| 69 61 67 65 52 65 74 75 | 72 6e 0d 09 69 6e 73 65 |iageRetu|rn..inse|
|00003b10| 72 74 54 65 78 74 20 22 | 5c 5c 63 61 70 74 69 6f |rtText "|\\captio|
|00003b20| 6e 7b a5 7d 22 0d 09 63 | 61 72 72 69 61 67 65 52 |n{.}"..c|arriageR|
|00003b30| 65 74 75 72 6e 0d 09 69 | 6e 73 65 72 74 54 65 78 |eturn..i|nsertTex|
|00003b40| 74 20 22 5c 5c 70 72 6f | 74 65 63 74 5c 5c 6c 61 |t "\\pro|tect\\la|
|00003b50| 62 65 6c 7b a5 7d 22 0d | 09 67 6f 74 6f 20 24 63 |bel{.}".|.goto $c|
|00003b60| 75 72 72 65 6e 74 50 6f | 73 0d 09 6e 65 78 74 54 |urrentPo|s..nextT|
|00003b70| 61 62 53 74 6f 70 0d 7d | 0d 70 72 6f 63 20 73 6c |abStop.}|.proc sl|
|00003b80| 69 64 65 20 7b 7d 20 7b | 0d 09 77 72 61 70 45 6e |ide {} {|..wrapEn|
|00003b90| 76 69 72 6f 6e 6d 65 6e | 74 20 22 73 6c 69 64 65 |vironmen|t "slide|
|00003ba0| 22 20 31 0d 09 6d 65 73 | 73 61 67 65 20 22 65 6e |" 1..mes|sage "en|
|00003bb0| 74 65 72 20 63 6f 6c 6f | 72 73 22 0d 7d 0d 0d 70 |ter colo|rs".}..p|
|00003bc0| 72 6f 63 20 76 65 72 62 | 61 74 69 6d 20 7b 7d 20 |roc verb|atim {} |
|00003bd0| 7b 77 72 61 70 45 6e 76 | 69 72 6f 6e 6d 65 6e 74 |{wrapEnv|ironment|
|00003be0| 20 22 76 65 72 62 61 74 | 69 6d 22 20 30 7d 0d 70 | "verbat|im" 0}.p|
|00003bf0| 72 6f 63 20 71 75 6f 74 | 65 20 7b 7d 20 7b 77 72 |roc quot|e {} {wr|
|00003c00| 61 70 45 6e 76 69 72 6f | 6e 6d 65 6e 74 20 22 71 |apEnviro|nment "q|
|00003c10| 75 6f 74 65 22 20 30 7d | 0d 70 72 6f 63 20 71 75 |uote" 0}|.proc qu|
|00003c20| 6f 74 61 74 69 6f 6e 20 | 7b 7d 20 7b 77 72 61 70 |otation |{} {wrap|
|00003c30| 45 6e 76 69 72 6f 6e 6d | 65 6e 74 20 22 71 75 6f |Environm|ent "quo|
|00003c40| 74 61 74 69 6f 6e 22 20 | 30 7d 0d 70 72 6f 63 20 |tation" |0}.proc |
|00003c50| 76 65 72 73 65 20 7b 7d | 20 7b 77 72 61 70 45 6e |verse {}| {wrapEn|
|00003c60| 76 69 72 6f 6e 6d 65 6e | 74 20 22 76 65 72 73 65 |vironmen|t "verse|
|00003c70| 22 20 30 7d 0d 0d 70 72 | 6f 63 20 69 6e 64 65 78 |" 0}..pr|oc index|
|00003c80| 20 7b 7d 20 7b 61 6c 65 | 72 74 6e 6f 74 65 20 22 | {} {ale|rtnote "|
|00003c90| 4e 6f 74 20 79 65 74 20 | 69 6d 70 6c 65 6d 65 6e |Not yet |implemen|
|00003ca0| 74 65 64 2e 22 7d 0d 70 | 72 6f 63 20 62 69 62 6c |ted."}.p|roc bibl|
|00003cb0| 69 6f 67 72 61 70 68 79 | 20 7b 7d 20 7b 0d 09 63 |iography| {} {..c|
|00003cc0| 61 74 63 68 20 7b 70 72 | 6f 6d 70 74 20 22 62 69 |atch {pr|ompt "bi|
|00003cd0| 62 6c 69 6f 67 72 61 70 | 68 79 3a 20 20 68 6f 77 |bliograp|hy:  how|
|00003ce0| 20 6d 61 6e 79 20 62 69 | 62 69 74 65 6d 73 3f 22 | many bi|bitems?"|
|00003cf0| 20 33 7d 20 6e 75 6d 62 | 65 72 49 74 65 6d 73 0d | 3} numb|erItems.|
|00003d00| 09 69 66 20 7b 24 6e 75 | 6d 62 65 72 49 74 65 6d |.if {$nu|mberItem|
|00003d10| 73 20 21 3d 20 22 63 61 | 6e 63 65 6c 22 7d 20 74 |s != "ca|ncel"} t|
|00003d20| 68 65 6e 20 7b 0d 09 09 | 69 66 20 7b 5b 69 6e 73 |hen {...|if {[ins|
|00003d30| 65 72 74 45 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 22 |ertEnvir|onment "|
|00003d40| 74 68 65 62 69 62 6c 69 | 6f 67 72 61 70 68 79 22 |thebibli|ography"|
|00003d50| 20 31 5d 7d 20 74 68 65 | 6e 20 7b 0d 09 09 09 73 | 1]} the|n {....s|
|00003d60| 65 74 20 62 65 67 69 6e | 41 72 67 75 6d 65 6e 74 |et begin|Argument|
|00003d70| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 09 09 69 6e 73 | [getPos|]....ins|
|00003d80| 65 72 74 54 65 78 74 20 | 22 39 39 22 0d 09 09 09 |ertText |"99"....|
|00003d90| 73 65 74 20 65 6e 64 41 | 72 67 75 6d 65 6e 74 20 |set endA|rgument |
|00003da0| 5b 67 65 74 50 6f 73 5d | 0d 09 09 09 6e 65 78 74 |[getPos]|....next|
|00003db0| 54 61 62 53 74 6f 70 0d | 09 09 09 69 6e 73 65 72 |TabStop.|...inser|
|00003dc0| 74 54 65 78 74 20 22 5c | 5c 62 69 62 69 74 65 6d |tText "\|\bibitem|
|00003dd0| 7b a5 7d 22 0d 09 09 09 | 63 61 72 72 69 61 67 65 |{.}"....|carriage|
|00003de0| 52 65 74 75 72 6e 0d 09 | 09 09 69 6e 73 65 72 74 |Return..|..insert|
|00003df0| 54 65 78 74 20 22 a5 22 | 0d 09 09 09 66 6f 72 20 |Text "."|....for |
|00003e00| 7b 73 65 74 20 69 20 31 | 7d 20 7b 24 69 20 3c 20 |{set i 1|} {$i < |
|00003e10| 24 6e 75 6d 62 65 72 49 | 74 65 6d 73 7d 20 7b 69 |$numberI|tems} {i|
|00003e20| 6e 63 72 20 69 7d 20 7b | 0d 09 09 09 09 63 61 72 |ncr i} {|.....car|
|00003e30| 72 69 61 67 65 52 65 74 | 75 72 6e 0d 09 09 09 09 |riageRet|urn.....|
|00003e40| 63 61 72 72 69 61 67 65 | 52 65 74 75 72 6e 0d 09 |carriage|Return..|
|00003e50| 09 09 09 69 6e 73 65 72 | 74 54 65 78 74 20 22 5c |...inser|tText "\|
|00003e60| 5c 62 69 62 69 74 65 6d | 7b a5 7d 22 0d 09 09 09 |\bibitem|{.}"....|
|00003e70| 09 63 61 72 72 69 61 67 | 65 52 65 74 75 72 6e 0d |.carriag|eReturn.|
|00003e80| 09 09 09 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |....inse|rtText "|
|00003e90| a5 22 0d 09 09 09 7d 0d | 09 09 09 67 6f 74 6f 20 |."....}.|...goto |
|00003ea0| 24 62 65 67 69 6e 41 72 | 67 75 6d 65 6e 74 0d 09 |$beginAr|gument..|
|00003eb0| 09 09 73 65 74 4d 61 72 | 6b 0d 09 09 09 67 6f 74 |..setMar|k....got|
|00003ec0| 6f 20 24 65 6e 64 41 72 | 67 75 6d 65 6e 74 0d 09 |o $endAr|gument..|
|00003ed0| 09 09 6d 61 72 6b 48 69 | 6c 69 74 65 0d 09 09 09 |..markHi|lite....|
|00003ee0| 6d 65 73 73 61 67 65 20 | 22 6d 6f 64 69 66 79 20 |message |"modify |
|00003ef0| 61 72 67 75 6d 65 6e 74 | 3f 22 0d 09 09 7d 0d 09 |argument|?"...}..|
|00003f00| 7d 0d 7d 0d 0d 70 72 6f | 63 20 67 65 6e 65 72 61 |}.}..pro|c genera|
|00003f10| 6c 20 7b 7d 20 7b 0d 09 | 63 61 74 63 68 20 7b 70 |l {} {..|catch {p|
|00003f20| 72 6f 6d 70 74 20 22 57 | 68 61 74 20 65 6e 76 69 |rompt "W|hat envi|
|00003f30| 72 6f 6e 6d 65 6e 74 3f | 22 20 22 63 65 6e 74 65 |ronment?|" "cente|
|00003f40| 72 22 7d 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 4e |r"} envi|ronmentN|
|00003f50| 61 6d 65 0d 09 69 66 20 | 7b 24 65 6e 76 69 72 6f |ame..if |{$enviro|
|00003f60| 6e 6d 65 6e 74 4e 61 6d | 65 20 21 3d 20 22 63 61 |nmentNam|e != "ca|
|00003f70| 6e 63 65 6c 22 7d 20 7b | 77 72 61 70 45 6e 76 69 |ncel"} {|wrapEnvi|
|00003f80| 72 6f 6e 6d 65 6e 74 20 | 24 65 6e 76 69 72 6f 6e |ronment |$environ|
|00003f90| 6d 65 6e 74 4e 61 6d 65 | 20 30 7d 0d 7d 0d 0d 23 |mentName| 0}.}..#|
|00003fa0| 20 42 6f 78 65 73 3a 0d | 70 72 6f 63 20 6d 62 6f | Boxes:.|proc mbo|
|00003fb0| 78 20 7b 7d 20 7b 0d 09 | 69 66 20 7b 5b 77 72 61 |x {} {..|if {[wra|
|00003fc0| 70 4f 62 6a 65 63 74 20 | 22 5c 5c 6d 62 6f 78 7b |pObject |"\\mbox{|
|00003fd0| 22 20 22 7d a5 22 5d 7d | 20 74 68 65 6e 20 7b 0d |" "}."]}| then {.|
|00003fe0| 09 09 6d 65 73 73 61 67 | 65 20 22 6d 62 6f 78 20 |..messag|e "mbox |
|00003ff0| 73 65 74 22 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |set"..} |else {..|
|00004000| 09 6d 65 73 73 61 67 65 | 20 22 65 6e 74 65 72 20 |.message| "enter |
|00004010| 74 65 78 74 22 0d 09 7d | 0d 7d 0d 70 72 6f 63 20 |text"..}|.}.proc |
|00004020| 66 62 6f 78 20 7b 7d 20 | 7b 61 6c 65 72 74 6e 6f |fbox {} |{alertno|
|00004030| 74 65 20 22 4e 6f 74 20 | 79 65 74 20 69 6d 70 6c |te "Not |yet impl|
|00004040| 65 6d 65 6e 74 65 64 2e | 22 7d 0d 70 72 6f 63 20 |emented.|"}.proc |
|00004050| 70 61 72 62 6f 78 20 7b | 7d 20 7b 61 6c 65 72 74 |parbox {|} {alert|
|00004060| 6e 6f 74 65 20 22 4e 6f | 74 20 79 65 74 20 69 6d |note "No|t yet im|
|00004070| 70 6c 65 6d 65 6e 74 65 | 64 2e 22 7d 0d 0d 23 20 |plemente|d."}..# |
|00004080| 4d 69 73 63 3a 0d 70 72 | 6f 63 20 65 6c 6c 69 70 |Misc:.pr|oc ellip|
|00004090| 73 69 73 20 7b 7d 20 7b | 69 6e 73 65 72 74 4f 62 |sis {} {|insertOb|
|000040a0| 6a 65 63 74 20 22 5c 5c | 6c 64 6f 74 73 22 7d 0d |ject "\\|ldots"}.|
|000040b0| 70 72 6f 63 20 73 65 63 | 74 69 6f 6e 4d 61 72 6b |proc sec|tionMark|
|000040c0| 20 7b 7d 20 7b 69 6e 73 | 65 72 74 4f 62 6a 65 63 | {} {ins|ertObjec|
|000040d0| 74 20 22 5c 5c 53 22 7d | 0d 70 72 6f 63 20 70 61 |t "\\S"}|.proc pa|
|000040e0| 72 61 67 72 61 70 68 4d | 61 72 6b 20 7b 7d 20 7b |ragraphM|ark {} {|
|000040f0| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|00004100| 50 22 7d 0d 70 72 6f 63 | 20 64 61 67 67 65 72 20 |P"}.proc| dagger |
|00004110| 7b 7d 20 7b 69 6e 73 65 | 72 74 4f 62 6a 65 63 74 |{} {inse|rtObject|
|00004120| 20 22 5c 5c 64 61 67 22 | 7d 0d 70 72 6f 63 20 64 | "\\dag"|}.proc d|
|00004130| 62 6c 44 61 67 67 65 72 | 20 7b 7d 20 7b 69 6e 73 |blDagger| {} {ins|
|00004140| 65 72 74 4f 62 6a 65 63 | 74 20 22 5c 5c 64 64 61 |ertObjec|t "\\dda|
|00004150| 67 22 7d 0d 70 72 6f 63 | 20 63 6f 70 79 72 69 67 |g"}.proc| copyrig|
|00004160| 68 74 20 7b 7d 20 7b 69 | 6e 73 65 72 74 4f 62 6a |ht {} {i|nsertObj|
|00004170| 65 63 74 20 22 5c 5c 63 | 6f 70 79 72 69 67 68 74 |ect "\\c|opyright|
|00004180| 22 7d 0d 70 72 6f 63 20 | 70 6f 75 6e 64 73 20 7b |"}.proc |pounds {|
|00004190| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|000041a0| 22 5c 5c 70 6f 75 6e 64 | 73 22 7d 0d 70 72 6f 63 |"\\pound|s"}.proc|
|000041b0| 20 7b 65 6e 2d 64 61 73 | 68 7d 20 7b 7d 20 7b 69 | {en-das|h} {} {i|
|000041c0| 6e 73 65 72 74 4f 62 6a | 65 63 74 20 22 2d 2d 22 |nsertObj|ect "--"|
|000041d0| 7d 0d 70 72 6f 63 20 7b | 65 6d 2d 64 61 73 68 7d |}.proc {|em-dash}|
|000041e0| 20 7b 7d 20 7b 69 6e 73 | 65 72 74 4f 62 6a 65 63 | {} {ins|ertObjec|
|000041f0| 74 20 22 2d 2d 2d 22 7d | 0d 70 72 6f 63 20 74 65 |t "---"}|.proc te|
|00004200| 78 4c 6f 67 6f 20 7b 7d | 20 7b 69 6e 73 65 72 74 |xLogo {}| {insert|
|00004210| 4f 62 6a 65 63 74 20 22 | 5c 5c 54 65 58 22 7d 0d |Object "|\\TeX"}.|
|00004220| 70 72 6f 63 20 6c 61 74 | 65 78 4c 6f 67 6f 20 7b |proc lat|exLogo {|
|00004230| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|00004240| 22 5c 5c 4c 61 54 65 58 | 22 7d 0d 70 72 6f 63 20 |"\\LaTeX|"}.proc |
|00004250| 74 6f 64 61 79 20 7b 7d | 20 7b 69 6e 73 65 72 74 |today {}| {insert|
|00004260| 4f 62 6a 65 63 74 20 22 | 5c 5c 74 6f 64 61 79 22 |Object "|\\today"|
|00004270| 7d 0d 0d 70 72 6f 63 20 | 71 75 6f 74 65 73 20 7b |}..proc |quotes {|
|00004280| 7d 20 7b 0d 09 69 66 20 | 7b 5b 77 72 61 70 4f 62 |} {..if |{[wrapOb|
|00004290| 6a 65 63 74 20 22 60 22 | 20 22 27 a5 22 5d 7d 20 |ject "`"| "'."]} |
|000042a0| 74 68 65 6e 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |then {..|.message|
|000042b0| 20 22 74 65 78 74 20 71 | 75 6f 74 65 64 22 0d 09 | "text q|uoted"..|
|000042c0| 7d 20 65 6c 73 65 20 7b | 0d 09 09 6d 65 73 73 61 |} else {|...messa|
|000042d0| 67 65 20 22 65 6e 74 65 | 72 20 74 65 78 74 22 0d |ge "ente|r text".|
|000042e0| 09 7d 0d 7d 0d 70 72 6f | 63 20 64 62 6c 51 75 6f |.}.}.pro|c dblQuo|
|000042f0| 74 65 73 20 7b 7d 20 7b | 0d 09 69 66 20 7b 5b 77 |tes {} {|..if {[w|
|00004300| 72 61 70 4f 62 6a 65 63 | 74 20 22 60 60 22 20 22 |rapObjec|t "``" "|
|00004310| 27 27 a5 22 5d 7d 20 74 | 68 65 6e 20 7b 0d 09 09 |''."]} t|hen {...|
|00004320| 6d 65 73 73 61 67 65 20 | 22 74 65 78 74 20 64 6f |message |"text do|
|00004330| 75 62 6c 65 20 71 75 6f | 74 65 64 22 0d 09 7d 20 |uble quo|ted"..} |
|00004340| 65 6c 73 65 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |else {..|.message|
|00004350| 20 22 65 6e 74 65 72 20 | 74 65 78 74 22 0d 09 7d | "enter |text"..}|
|00004360| 0d 7d 0d 70 72 6f 63 20 | 6e 6f 74 65 20 7b 7d 20 |.}.proc |note {} |
|00004370| 7b 0d 09 69 66 20 7b 5b | 77 72 61 70 4f 62 6a 65 |{..if {[|wrapObje|
|00004380| 63 74 20 22 5c 5c 6d 61 | 72 67 69 6e 70 61 72 7b |ct "\\ma|rginpar{|
|00004390| 22 20 22 7d a5 22 5d 7d | 20 74 68 65 6e 20 7b 0d |" "}."]}| then {.|
|000043a0| 09 09 6d 65 73 73 61 67 | 65 20 22 6d 61 72 67 69 |..messag|e "margi|
|000043b0| 6e 61 6c 20 6e 6f 74 65 | 20 73 65 74 22 0d 09 7d |nal note| set"..}|
|000043c0| 20 65 6c 73 65 20 7b 0d | 09 09 6d 65 73 73 61 67 | else {.|..messag|
|000043d0| 65 20 22 65 6e 74 65 72 | 20 6d 61 72 67 69 6e 61 |e "enter| margina|
|000043e0| 6c 20 6e 6f 74 65 22 0d | 09 7d 0d 7d 0d 70 72 6f |l note".|.}.}.pro|
|000043f0| 63 20 66 6f 6f 74 6e 6f | 74 65 20 7b 7d 20 7b 0d |c footno|te {} {.|
|00004400| 09 69 66 20 7b 5b 77 72 | 61 70 4f 62 6a 65 63 74 |.if {[wr|apObject|
|00004410| 20 22 5c 5c 66 6f 6f 74 | 6e 6f 74 65 7b 22 20 22 | "\\foot|note{" "|
|00004420| 7d a5 22 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 6d |}."]} th|en {...m|
|00004430| 65 73 73 61 67 65 20 22 | 66 6f 6f 74 6e 6f 74 65 |essage "|footnote|
|00004440| 20 73 65 74 22 0d 09 7d | 20 65 6c 73 65 20 7b 0d | set"..}| else {.|
|00004450| 09 09 6d 65 73 73 61 67 | 65 20 22 65 6e 74 65 72 |..messag|e "enter|
|00004460| 20 66 6f 6f 74 6e 6f 74 | 65 22 0d 09 7d 0d 7d 0d | footnot|e"..}.}.|
|00004470| 70 72 6f 63 20 6c 61 62 | 65 6c 20 7b 7d 20 7b 0d |proc lab|el {} {.|
|00004480| 09 69 66 20 7b 5b 77 72 | 61 70 4f 62 6a 65 63 74 |.if {[wr|apObject|
|00004490| 20 22 5c 5c 6c 61 62 65 | 6c 7b 22 20 22 7d a5 22 | "\\labe|l{" "}."|
|000044a0| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 6d 65 73 73 |]} then |{...mess|
|000044b0| 61 67 65 20 22 6c 61 62 | 65 6c 20 64 65 66 69 6e |age "lab|el defin|
|000044c0| 65 64 22 0d 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |ed"..} e|lse {...|
|000044d0| 6d 65 73 73 61 67 65 20 | 22 65 6e 74 65 72 20 6c |message |"enter l|
|000044e0| 61 62 65 6c 22 0d 09 7d | 0d 7d 0d 70 72 6f 63 20 |abel"..}|.}.proc |
|000044f0| 63 72 6f 73 73 52 65 66 | 20 7b 7d 20 7b 20 0d 09 |crossRef| {} { ..|
|00004500| 69 66 20 7b 5b 77 72 61 | 70 4f 62 6a 65 63 74 20 |if {[wra|pObject |
|00004510| 22 5c 5c 72 65 66 7b 22 | 20 22 7d a5 22 5d 7d 20 |"\\ref{"| "}."]} |
|00004520| 74 68 65 6e 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |then {..|.message|
|00004530| 20 22 63 72 6f 73 73 2d | 72 65 66 65 72 65 6e 63 | "cross-|referenc|
|00004540| 65 20 6d 61 64 65 22 0d | 09 7d 20 65 6c 73 65 20 |e made".|.} else |
|00004550| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 65 6e 74 |{...mess|age "ent|
|00004560| 65 72 20 63 72 6f 73 73 | 2d 72 65 66 65 72 65 6e |er cross|-referen|
|00004570| 63 65 22 0d 09 7d 0d 7d | 0d 70 72 6f 63 20 70 61 |ce"..}.}|.proc pa|
|00004580| 67 65 52 65 66 20 7b 7d | 20 7b 20 0d 09 69 66 20 |geRef {}| { ..if |
|00004590| 7b 5b 77 72 61 70 4f 62 | 6a 65 63 74 20 22 5c 5c |{[wrapOb|ject "\\|
|000045a0| 70 61 67 65 72 65 66 7b | 22 20 22 7d a5 22 5d 7d |pageref{|" "}."]}|
|000045b0| 20 74 68 65 6e 20 7b 0d | 09 09 6d 65 73 73 61 67 | then {.|..messag|
|000045c0| 65 20 22 70 61 67 65 20 | 72 65 66 65 72 65 6e 63 |e "page |referenc|
|000045d0| 65 20 6d 61 64 65 22 0d | 09 7d 20 65 6c 73 65 20 |e made".|.} else |
|000045e0| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 65 6e 74 |{...mess|age "ent|
|000045f0| 65 72 20 70 61 67 65 20 | 72 65 66 65 72 65 6e 63 |er page |referenc|
|00004600| 65 22 0d 09 7d 0d 7d 0d | 70 72 6f 63 20 63 69 74 |e"..}.}.|proc cit|
|00004610| 61 74 69 6f 6e 20 7b 7d | 20 7b 0d 09 69 66 20 7b |ation {}| {..if {|
|00004620| 5b 77 72 61 70 4f 62 6a | 65 63 74 20 22 5c 5c 63 |[wrapObj|ect "\\c|
|00004630| 69 74 65 7b 22 20 22 7d | a5 22 5d 7d 20 74 68 65 |ite{" "}|."]} the|
|00004640| 6e 20 7b 0d 09 09 6d 65 | 73 73 61 67 65 20 22 63 |n {...me|ssage "c|
|00004650| 69 74 61 74 69 6f 6e 20 | 6d 61 64 65 22 0d 09 7d |itation |made"..}|
|00004660| 20 65 6c 73 65 20 7b 0d | 09 09 6d 65 73 73 61 67 | else {.|..messag|
|00004670| 65 20 22 65 6e 74 65 72 | 20 63 69 74 61 74 69 6f |e "enter| citatio|
|00004680| 6e 22 0d 09 7d 0d 7d 0d | 70 72 6f 63 20 69 74 65 |n"..}.}.|proc ite|
|00004690| 6d 20 7b 7d 20 7b 69 6e | 73 65 72 74 4f 62 6a 65 |m {} {in|sertObje|
|000046a0| 63 74 20 22 5c 5c 69 74 | 65 6d 22 7d 0d 70 72 6f |ct "\\it|em"}.pro|
|000046b0| 63 20 62 69 62 69 74 65 | 6d 20 7b 7d 20 7b 0d 09 |c bibite|m {} {..|
|000046c0| 69 66 20 7b 5b 77 72 61 | 70 4f 62 6a 65 63 74 20 |if {[wra|pObject |
|000046d0| 22 5c 5c 62 69 62 69 74 | 65 6d 7b 22 20 22 7d a5 |"\\bibit|em{" "}.|
|000046e0| 22 5d 7d 20 74 68 65 6e | 20 7b 0d 09 09 6d 65 73 |"]} then| {...mes|
|000046f0| 73 61 67 65 20 22 62 69 | 62 69 74 65 6d 20 73 65 |sage "bi|bitem se|
|00004700| 74 22 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 6d |t"..} el|se {...m|
|00004710| 65 73 73 61 67 65 20 22 | 65 6e 74 65 72 20 62 69 |essage "|enter bi|
|00004720| 62 69 74 65 6d 22 0d 09 | 7d 0d 7d 0d 0d 0d 23 23 |bitem"..|}.}...##|
|00004730| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004740| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004750| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004760| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00004770| 23 23 23 23 23 23 23 23 | 23 23 23 0d 23 20 0d 23 |########|###.# .#|
|00004780| 20 4d 61 74 68 20 4d 6f | 64 65 20 4d 61 63 72 6f | Math Mo|de Macro|
|00004790| 73 2e 0d 23 0d 23 23 23 | 23 23 23 23 23 23 23 23 |s..#.###|########|
|000047a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000047e0| 23 23 0d 0d 23 20 4d 6f | 64 65 73 3a 0d 70 72 6f |##..# Mo|des:.pro|
|000047f0| 63 20 74 65 78 4d 61 74 | 68 20 7b 7d 20 7b 0d 09 |c texMat|h {} {..|
|00004800| 69 66 20 7b 5b 77 72 61 | 70 4f 62 6a 65 63 74 20 |if {[wra|pObject |
|00004810| 22 24 22 20 22 24 a5 22 | 5d 7d 20 74 68 65 6e 20 |"$" "$."|]} then |
|00004820| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 66 6f 72 |{...mess|age "for|
|00004830| 6d 75 6c 61 20 73 65 74 | 22 0d 09 7d 20 65 6c 73 |mula set|"..} els|
|00004840| 65 20 7b 0d 09 09 6d 65 | 73 73 61 67 65 20 22 65 |e {...me|ssage "e|
|00004850| 6e 74 65 72 20 66 6f 72 | 6d 75 6c 61 22 0d 09 7d |nter for|mula"..}|
|00004860| 0d 7d 0d 70 72 6f 63 20 | 74 65 78 44 69 73 70 6c |.}.proc |texDispl|
|00004870| 61 79 6d 61 74 68 20 7b | 7d 20 7b 0d 09 69 66 20 |aymath {|} {..if |
|00004880| 7b 5b 77 72 61 70 4f 62 | 6a 65 63 74 20 22 24 24 |{[wrapOb|ject "$$|
|00004890| 22 20 22 24 24 a5 22 5d | 7d 20 74 68 65 6e 20 7b |" "$$."]|} then {|
|000048a0| 0d 09 09 6d 65 73 73 61 | 67 65 20 22 64 69 73 70 |...messa|ge "disp|
|000048b0| 6c 61 79 65 64 20 66 6f | 72 6d 75 6c 61 20 73 65 |layed fo|rmula se|
|000048c0| 74 22 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 6d |t"..} el|se {...m|
|000048d0| 65 73 73 61 67 65 20 22 | 65 6e 74 65 72 20 64 69 |essage "|enter di|
|000048e0| 73 70 6c 61 79 65 64 20 | 66 6f 72 6d 75 6c 61 22 |splayed |formula"|
|000048f0| 0d 09 7d 0d 7d 0d 70 72 | 6f 63 20 6c 61 74 65 78 |..}.}.pr|oc latex|
|00004900| 4d 61 74 68 20 7b 7d 20 | 7b 0d 09 69 66 20 7b 5b |Math {} |{..if {[|
|00004910| 77 72 61 70 4f 62 6a 65 | 63 74 20 22 5c 5c 28 20 |wrapObje|ct "\\( |
|00004920| 22 20 22 20 5c 5c 29 a5 | 22 5d 7d 20 74 68 65 6e |" " \\).|"]} then|
|00004930| 20 7b 0d 09 09 6d 65 73 | 73 61 67 65 20 22 66 6f | {...mes|sage "fo|
|00004940| 72 6d 75 6c 61 20 73 65 | 74 22 0d 09 7d 20 65 6c |rmula se|t"..} el|
|00004950| 73 65 20 7b 0d 09 09 6d | 65 73 73 61 67 65 20 22 |se {...m|essage "|
|00004960| 65 6e 74 65 72 20 66 6f | 72 6d 75 6c 61 22 0d 09 |enter fo|rmula"..|
|00004970| 7d 0d 7d 0d 70 72 6f 63 | 20 6c 61 74 65 78 44 69 |}.}.proc| latexDi|
|00004980| 73 70 6c 61 79 6d 61 74 | 68 20 7b 7d 20 7b 0d 09 |splaymat|h {} {..|
|00004990| 69 66 20 7b 5b 77 72 61 | 70 4f 62 6a 65 63 74 20 |if {[wra|pObject |
|000049a0| 22 5c 5c 5c 5b 20 22 20 | 22 20 5c 5c 5c 5d a5 22 |"\\\[ " |" \\\]."|
|000049b0| 5d 7d 20 74 68 65 6e 20 | 7b 0d 09 09 6d 65 73 73 |]} then |{...mess|
|000049c0| 61 67 65 20 22 64 69 73 | 70 6c 61 79 65 64 20 66 |age "dis|played f|
|000049d0| 6f 72 6d 75 6c 61 20 73 | 65 74 22 0d 09 7d 20 65 |ormula s|et"..} e|
|000049e0| 6c 73 65 20 7b 0d 09 09 | 6d 65 73 73 61 67 65 20 |lse {...|message |
|000049f0| 22 65 6e 74 65 72 20 64 | 69 73 70 6c 61 79 65 64 |"enter d|isplayed|
|00004a00| 20 66 6f 72 6d 75 6c 61 | 22 0d 09 7d 0d 7d 0d 0d | formula|"..}.}..|
|00004a10| 23 20 45 6e 76 69 72 6f | 6e 6d 65 6e 74 73 3a 0d |# Enviro|nments:.|
|00004a20| 70 72 6f 63 20 6d 61 74 | 68 20 7b 7d 20 7b 77 72 |proc mat|h {} {wr|
|00004a30| 61 70 45 6e 76 69 72 6f | 6e 6d 65 6e 74 20 22 6d |apEnviro|nment "m|
|00004a40| 61 74 68 22 20 30 7d 0d | 70 72 6f 63 20 64 69 73 |ath" 0}.|proc dis|
|00004a50| 70 6c 61 79 6d 61 74 68 | 20 7b 7d 20 7b 77 72 61 |playmath| {} {wra|
|00004a60| 70 45 6e 76 69 72 6f 6e | 6d 65 6e 74 20 22 64 69 |pEnviron|ment "di|
|00004a70| 73 70 6c 61 79 6d 61 74 | 68 22 20 30 7d 0d 70 72 |splaymat|h" 0}.pr|
|00004a80| 6f 63 20 65 71 75 61 74 | 69 6f 6e 20 7b 7d 20 7b |oc equat|ion {} {|
|00004a90| 0d 09 69 66 20 7b 5b 77 | 72 61 70 45 6e 76 69 72 |..if {[w|rapEnvir|
|00004aa0| 6f 6e 6d 65 6e 74 20 22 | 65 71 75 61 74 69 6f 6e |onment "|equation|
|00004ab0| 22 20 30 5d 7d 20 74 68 | 65 6e 20 7b 0d 09 09 66 |" 0]} th|en {...f|
|00004ac0| 6f 72 77 61 72 64 43 68 | 61 72 0d 09 09 62 61 63 |orwardCh|ar...bac|
|00004ad0| 6b 77 61 72 64 43 68 61 | 72 0d 09 09 73 65 74 20 |kwardCha|r...set |
|00004ae0| 63 75 72 72 65 6e 74 50 | 6f 73 20 5b 67 65 74 50 |currentP|os [getP|
|00004af0| 6f 73 5d 0d 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |os]..} e|lse {...|
|00004b00| 73 65 74 20 63 75 72 72 | 65 6e 74 50 6f 73 20 5b |set curr|entPos [|
|00004b10| 67 65 74 50 6f 73 5d 0d | 09 09 69 6e 73 65 72 74 |getPos].|..insert|
|00004b20| 54 65 78 74 20 22 a5 22 | 0d 09 7d 0d 09 63 61 72 |Text "."|..}..car|
|00004b30| 72 69 61 67 65 52 65 74 | 75 72 6e 0d 09 69 6e 73 |riageRet|urn..ins|
|00004b40| 65 72 74 54 65 78 74 20 | 22 5c 5c 6c 61 62 65 6c |ertText |"\\label|
|00004b50| 7b a5 7d 22 0d 09 67 6f | 74 6f 20 24 63 75 72 72 |{.}"..go|to $curr|
|00004b60| 65 6e 74 50 6f 73 0d 09 | 6e 65 78 74 54 61 62 53 |entPos..|nextTabS|
|00004b70| 74 6f 70 0d 7d 0d 70 72 | 6f 63 20 6d 79 41 72 72 |top.}.pr|oc myArr|
|00004b80| 61 79 20 7b 7d 20 7b 0d | 09 63 61 74 63 68 20 7b |ay {} {.|.catch {|
|00004b90| 70 72 6f 6d 70 74 20 22 | 61 72 72 61 79 3a 20 20 |prompt "|array:  |
|00004ba0| 68 6f 77 20 6d 61 6e 79 | 20 72 6f 77 73 3f 22 20 |how many| rows?" |
|00004bb0| 33 7d 20 6e 75 6d 62 65 | 72 52 6f 77 73 0d 09 69 |3} numbe|rRows..i|
|00004bc0| 66 20 7b 24 6e 75 6d 62 | 65 72 52 6f 77 73 20 21 |f {$numb|erRows !|
|00004bd0| 3d 20 22 63 61 6e 63 65 | 6c 22 7d 20 74 68 65 6e |= "cance|l"} then|
|00004be0| 20 7b 0d 09 09 63 61 74 | 63 68 20 7b 70 72 6f 6d | {...cat|ch {prom|
|00004bf0| 70 74 20 22 61 72 72 61 | 79 3a 20 20 68 6f 77 20 |pt "arra|y:  how |
|00004c00| 6d 61 6e 79 20 63 6f 6c | 75 6d 6e 73 3f 22 20 33 |many col|umns?" 3|
|00004c10| 7d 20 6e 75 6d 62 65 72 | 43 6f 6c 73 0d 09 09 69 |} number|Cols...i|
|00004c20| 66 20 7b 24 6e 75 6d 62 | 65 72 43 6f 6c 73 20 21 |f {$numb|erCols !|
|00004c30| 3d 20 22 63 61 6e 63 65 | 6c 22 7d 20 74 68 65 6e |= "cance|l"} then|
|00004c40| 20 7b 0d 09 09 09 69 66 | 20 7b 5b 69 6e 73 65 72 | {....if| {[inser|
|00004c50| 74 45 6e 76 69 72 6f 6e | 6d 65 6e 74 20 22 61 72 |tEnviron|ment "ar|
|00004c60| 72 61 79 22 20 31 5d 7d | 20 74 68 65 6e 20 7b 0d |ray" 1]}| then {.|
|00004c70| 09 09 09 09 73 65 74 20 | 62 65 67 69 6e 41 72 67 |....set |beginArg|
|00004c80| 75 6d 65 6e 74 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |ument [g|etPos]..|
|00004c90| 09 09 09 66 6f 72 20 7b | 73 65 74 20 6a 20 31 7d |...for {|set j 1}|
|00004ca0| 20 7b 24 6a 20 3c 3d 20 | 24 6e 75 6d 62 65 72 43 | {$j <= |$numberC|
|00004cb0| 6f 6c 73 7d 20 7b 69 6e | 63 72 20 6a 7d 20 7b 0d |ols} {in|cr j} {.|
|00004cc0| 09 09 09 09 09 69 6e 73 | 65 72 74 54 65 78 74 20 |.....ins|ertText |
|00004cd0| 22 63 22 0d 09 09 09 09 | 7d 0d 09 09 09 09 73 65 |"c".....|}.....se|
|00004ce0| 74 20 65 6e 64 41 72 67 | 75 6d 65 6e 74 20 5b 67 |t endArg|ument [g|
|00004cf0| 65 74 50 6f 73 5d 0d 09 | 09 09 09 6e 65 78 74 54 |etPos]..|...nextT|
|00004d00| 61 62 53 74 6f 70 0d 09 | 09 09 09 66 6f 72 20 7b |abStop..|...for {|
|00004d10| 73 65 74 20 69 20 31 7d | 20 7b 24 69 20 3c 20 24 |set i 1}| {$i < $|
|00004d20| 6e 75 6d 62 65 72 52 6f | 77 73 7d 20 7b 69 6e 63 |numberRo|ws} {inc|
|00004d30| 72 20 69 7d 20 7b 0d 09 | 09 09 09 09 69 6e 73 65 |r i} {..|....inse|
|00004d40| 72 74 52 6f 77 20 24 6e | 75 6d 62 65 72 43 6f 6c |rtRow $n|umberCol|
|00004d50| 73 0d 09 09 09 09 09 69 | 6e 73 65 72 74 54 65 78 |s......i|nsertTex|
|00004d60| 74 20 22 20 20 5c 5c 5c | 5c 22 0d 09 09 09 09 09 |t "  \\\|\"......|
|00004d70| 63 61 72 72 69 61 67 65 | 52 65 74 75 72 6e 0d 09 |carriage|Return..|
|00004d80| 09 09 09 7d 0d 09 09 09 | 09 69 6e 73 65 72 74 52 |...}....|.insertR|
|00004d90| 6f 77 20 24 6e 75 6d 62 | 65 72 43 6f 6c 73 0d 09 |ow $numb|erCols..|
|00004da0| 09 09 09 67 6f 74 6f 20 | 24 62 65 67 69 6e 41 72 |...goto |$beginAr|
|00004db0| 67 75 6d 65 6e 74 0d 09 | 09 09 09 73 65 74 4d 61 |gument..|...setMa|
|00004dc0| 72 6b 0d 09 09 09 09 67 | 6f 74 6f 20 24 65 6e 64 |rk.....g|oto $end|
|00004dd0| 41 72 67 75 6d 65 6e 74 | 0d 09 09 09 09 6d 61 72 |Argument|.....mar|
|00004de0| 6b 48 69 6c 69 74 65 0d | 09 09 09 09 6d 65 73 73 |kHilite.|....mess|
|00004df0| 61 67 65 20 22 6d 6f 64 | 69 66 79 20 61 72 67 75 |age "mod|ify argu|
|00004e00| 6d 65 6e 74 3f 22 0d 09 | 09 09 7d 0d 09 09 7d 0d |ment?"..|..}...}.|
|00004e10| 09 7d 0d 7d 0d 70 72 6f | 63 20 65 71 6e 61 72 72 |.}.}.pro|c eqnarr|
|00004e20| 61 79 20 7b 7d 20 7b 0d | 09 63 61 74 63 68 20 7b |ay {} {.|.catch {|
|00004e30| 70 72 6f 6d 70 74 20 22 | 65 71 6e 61 72 72 61 79 |prompt "|eqnarray|
|00004e40| 3a 20 20 68 6f 77 20 6d | 61 6e 79 20 72 6f 77 73 |:  how m|any rows|
|00004e50| 3f 22 20 33 7d 20 6e 75 | 6d 62 65 72 52 6f 77 73 |?" 3} nu|mberRows|
|00004e60| 0d 09 69 66 20 7b 24 6e | 75 6d 62 65 72 52 6f 77 |..if {$n|umberRow|
|00004e70| 73 20 21 3d 20 22 63 61 | 6e 63 65 6c 22 7d 20 74 |s != "ca|ncel"} t|
|00004e80| 68 65 6e 20 7b 0d 09 09 | 73 65 74 20 63 75 72 72 |hen {...|set curr|
|00004e90| 65 6e 74 50 6f 73 20 5b | 67 65 74 50 6f 73 5d 0d |entPos [|getPos].|
|00004ea0| 09 09 69 66 20 7b 5b 69 | 6e 73 65 72 74 45 6e 76 |..if {[i|nsertEnv|
|00004eb0| 69 72 6f 6e 6d 65 6e 74 | 20 22 65 71 6e 61 72 72 |ironment| "eqnarr|
|00004ec0| 61 79 22 20 30 5d 7d 20 | 74 68 65 6e 20 7b 0d 09 |ay" 0]} |then {..|
|00004ed0| 09 09 66 6f 72 20 7b 73 | 65 74 20 69 20 31 7d 20 |..for {s|et i 1} |
|00004ee0| 7b 24 69 20 3c 20 24 6e | 75 6d 62 65 72 52 6f 77 |{$i < $n|umberRow|
|00004ef0| 73 7d 20 7b 69 6e 63 72 | 20 69 7d 20 7b 0d 09 09 |s} {incr| i} {...|
|00004f00| 09 09 69 6e 73 65 72 74 | 52 6f 77 20 33 0d 09 09 |..insert|Row 3...|
|00004f10| 09 09 63 61 72 72 69 61 | 67 65 52 65 74 75 72 6e |..carria|geReturn|
|00004f20| 0d 09 09 09 09 69 6e 73 | 65 72 74 54 65 78 74 20 |.....ins|ertText |
|00004f30| 22 5c 5c 6c 61 62 65 6c | 7b a5 7d 20 5c 5c 5c 5c |"\\label|{.} \\\\|
|00004f40| 22 0d 09 09 09 09 63 61 | 72 72 69 61 67 65 52 65 |".....ca|rriageRe|
|00004f50| 74 75 72 6e 0d 09 09 09 | 7d 0d 09 09 09 69 6e 73 |turn....|}....ins|
|00004f60| 65 72 74 52 6f 77 20 33 | 0d 09 09 09 63 61 72 72 |ertRow 3|....carr|
|00004f70| 69 61 67 65 52 65 74 75 | 72 6e 0d 09 09 09 69 6e |iageRetu|rn....in|
|00004f80| 73 65 72 74 54 65 78 74 | 20 22 5c 5c 6c 61 62 65 |sertText| "\\labe|
|00004f90| 6c 7b a5 7d 22 0d 09 09 | 09 67 6f 74 6f 20 24 63 |l{.}"...|.goto $c|
|00004fa0| 75 72 72 65 6e 74 50 6f | 73 0d 09 09 09 6e 65 78 |urrentPo|s....nex|
|00004fb0| 74 54 61 62 53 74 6f 70 | 0d 09 09 7d 0d 09 7d 0d |tTabStop|...}..}.|
|00004fc0| 7d 0d 70 72 6f 63 20 65 | 71 6e 61 72 72 61 79 53 |}.proc e|qnarrayS|
|00004fd0| 74 61 72 20 7b 7d 20 7b | 0d 09 63 61 74 63 68 20 |tar {} {|..catch |
|00004fe0| 7b 70 72 6f 6d 70 74 20 | 22 65 71 6e 61 72 72 61 |{prompt |"eqnarra|
|00004ff0| 79 2a 3a 20 20 68 6f 77 | 20 6d 61 6e 79 20 72 6f |y*:  how| many ro|
|00005000| 77 73 3f 22 20 33 7d 20 | 6e 75 6d 62 65 72 52 6f |ws?" 3} |numberRo|
|00005010| 77 73 0d 09 69 66 20 7b | 24 6e 75 6d 62 65 72 52 |ws..if {|$numberR|
|00005020| 6f 77 73 20 21 3d 20 22 | 63 61 6e 63 65 6c 22 7d |ows != "|cancel"}|
|00005030| 20 74 68 65 6e 20 7b 0d | 09 09 73 65 74 20 63 75 | then {.|..set cu|
|00005040| 72 72 65 6e 74 50 6f 73 | 20 5b 67 65 74 50 6f 73 |rrentPos| [getPos|
|00005050| 5d 0d 09 09 69 66 20 7b | 5b 69 6e 73 65 72 74 45 |]...if {|[insertE|
|00005060| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 22 65 71 6e 61 |nvironme|nt "eqna|
|00005070| 72 72 61 79 2a 22 20 30 | 5d 7d 20 74 68 65 6e 20 |rray*" 0|]} then |
|00005080| 7b 0d 09 09 09 66 6f 72 | 20 7b 73 65 74 20 69 20 |{....for| {set i |
|00005090| 31 7d 20 7b 24 69 20 3c | 20 24 6e 75 6d 62 65 72 |1} {$i <| $number|
|000050a0| 52 6f 77 73 7d 20 7b 69 | 6e 63 72 20 69 7d 20 7b |Rows} {i|ncr i} {|
|000050b0| 0d 09 09 09 09 69 6e 73 | 65 72 74 52 6f 77 20 33 |.....ins|ertRow 3|
|000050c0| 0d 09 09 09 09 69 6e 73 | 65 72 74 54 65 78 74 20 |.....ins|ertText |
|000050d0| 22 20 20 5c 5c 5c 5c 22 | 0d 09 09 09 09 63 61 72 |"  \\\\"|.....car|
|000050e0| 72 69 61 67 65 52 65 74 | 75 72 6e 0d 09 09 09 7d |riageRet|urn....}|
|000050f0| 0d 09 09 09 69 6e 73 65 | 72 74 52 6f 77 20 33 0d |....inse|rtRow 3.|
|00005100| 09 09 09 67 6f 74 6f 20 | 24 63 75 72 72 65 6e 74 |...goto |$current|
|00005110| 50 6f 73 0d 09 09 09 6e | 65 78 74 54 61 62 53 74 |Pos....n|extTabSt|
|00005120| 6f 70 0d 09 09 7d 0d 09 | 7d 0d 7d 0d 0d 23 20 46 |op...}..|}.}..# F|
|00005130| 6f 72 6d 75 6c 61 73 3a | 0d 70 72 6f 63 20 73 75 |ormulas:|.proc su|
|00005140| 62 73 63 72 69 70 74 20 | 7b 7d 20 7b 0d 09 69 66 |bscript |{} {..if|
|00005150| 20 7b 5b 77 72 61 70 4f | 62 6a 65 63 74 20 22 5f | {[wrapO|bject "_|
|00005160| 7b 22 20 22 7d a5 22 5d | 7d 20 74 68 65 6e 20 7b |{" "}."]|} then {|
|00005170| 0d 09 09 6d 65 73 73 61 | 67 65 20 22 73 75 62 73 |...messa|ge "subs|
|00005180| 63 72 69 70 74 20 73 65 | 74 22 0d 09 7d 20 65 6c |cript se|t"..} el|
|00005190| 73 65 20 7b 0d 09 09 6d | 65 73 73 61 67 65 20 22 |se {...m|essage "|
|000051a0| 65 6e 74 65 72 20 73 75 | 62 73 63 72 69 70 74 22 |enter su|bscript"|
|000051b0| 0d 09 7d 0d 7d 0d 70 72 | 6f 63 20 73 75 70 65 72 |..}.}.pr|oc super|
|000051c0| 73 63 72 69 70 74 20 7b | 7d 20 7b 0d 09 69 66 20 |script {|} {..if |
|000051d0| 7b 5b 77 72 61 70 4f 62 | 6a 65 63 74 20 22 5e 7b |{[wrapOb|ject "^{|
|000051e0| 22 20 22 7d a5 22 5d 7d | 20 74 68 65 6e 20 7b 0d |" "}."]}| then {.|
|000051f0| 09 09 6d 65 73 73 61 67 | 65 20 22 73 75 70 65 72 |..messag|e "super|
|00005200| 73 63 72 69 70 74 20 73 | 65 74 22 0d 09 7d 20 65 |script s|et"..} e|
|00005210| 6c 73 65 20 7b 0d 09 09 | 6d 65 73 73 61 67 65 20 |lse {...|message |
|00005220| 22 65 6e 74 65 72 20 73 | 75 70 65 72 73 63 72 69 |"enter s|uperscri|
|00005230| 70 74 22 0d 09 7d 0d 7d | 0d 70 72 6f 63 20 66 72 |pt"..}.}|.proc fr|
|00005240| 61 63 74 69 6f 6e 20 7b | 7d 20 7b 0d 09 73 65 74 |action {|} {..set|
|00005250| 20 63 75 72 72 65 6e 74 | 50 6f 73 20 5b 67 65 74 | current|Pos [get|
|00005260| 50 6f 73 5d 0d 09 69 66 | 20 7b 5b 69 73 53 65 6c |Pos]..if| {[isSel|
|00005270| 65 63 74 69 6f 6e 5d 7d | 20 74 68 65 6e 20 7b 0d |ection]}| then {.|
|00005280| 09 09 73 65 74 20 73 65 | 6c 65 63 74 69 6f 6e 20 |..set se|lection |
|00005290| 5b 67 65 74 53 65 6c 65 | 63 74 5d 0d 09 09 73 65 |[getSele|ct]...se|
|000052a0| 74 20 61 72 67 73 20 5b | 73 70 6c 69 74 20 24 73 |t args [|split $s|
|000052b0| 65 6c 65 63 74 69 6f 6e | 20 2f 5d 0d 09 09 73 65 |election| /]...se|
|000052c0| 74 20 6c 65 6e 20 5b 6c | 6c 65 6e 67 74 68 20 24 |t len [l|length $|
|000052d0| 61 72 67 73 5d 0d 09 09 | 64 65 6c 65 74 65 54 65 |args]...|deleteTe|
|000052e0| 78 74 20 24 63 75 72 72 | 65 6e 74 50 6f 73 20 5b |xt $curr|entPos [|
|000052f0| 73 65 6c 45 6e 64 5d 0d | 09 09 69 66 20 7b 24 6c |selEnd].|..if {$l|
|00005300| 65 6e 20 3d 3d 20 31 7d | 20 74 68 65 6e 20 7b 0d |en == 1}| then {.|
|00005310| 09 09 09 23 20 6d 61 79 | 62 65 20 74 68 65 20 73 |...# may|be the s|
|00005320| 65 6c 65 63 74 69 6f 6e | 20 73 68 6f 75 6c 64 20 |election| should |
|00005330| 62 65 20 64 65 6c 65 74 | 65 64 20 69 6e 20 74 68 |be delet|ed in th|
|00005340| 69 73 20 63 61 73 65 3f | 0d 09 09 09 69 6e 73 65 |is case?|....inse|
|00005350| 72 74 54 65 78 74 20 22 | 5c 5c 66 72 61 63 7b 22 |rtText "|\\frac{"|
|00005360| 20 24 73 65 6c 65 63 74 | 69 6f 6e 20 22 7d 7b a5 | $select|ion "}{.|
|00005370| 7d a5 22 0d 09 09 09 67 | 6f 74 6f 20 24 63 75 72 |}."....g|oto $cur|
|00005380| 72 65 6e 74 50 6f 73 0d | 09 09 09 6e 65 78 74 54 |rentPos.|...nextT|
|00005390| 61 62 53 74 6f 70 0d 09 | 09 09 6d 65 73 73 61 67 |abStop..|..messag|
|000053a0| 65 20 22 65 6e 74 65 72 | 20 64 65 6e 6f 6d 69 6e |e "enter| denomin|
|000053b0| 61 74 6f 72 22 0d 09 09 | 7d 20 65 6c 73 65 20 7b |ator"...|} else {|
|000053c0| 0d 09 09 09 73 65 74 20 | 66 69 72 73 74 41 72 67 |....set |firstArg|
|000053d0| 20 5b 6c 69 6e 64 65 78 | 20 24 61 72 67 73 20 30 | [lindex| $args 0|
|000053e0| 5d 0d 09 09 09 73 65 74 | 20 72 65 73 74 41 72 67 |]....set| restArg|
|000053f0| 73 20 5b 6c 72 61 6e 67 | 65 20 24 61 72 67 73 20 |s [lrang|e $args |
|00005400| 31 20 5b 65 78 70 72 20 | 24 6c 65 6e 2d 31 5d 5d |1 [expr |$len-1]]|
|00005410| 0d 09 09 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |....inse|rtText "|
|00005420| 5c 5c 66 72 61 63 7b 22 | 20 24 66 69 72 73 74 41 |\\frac{"| $firstA|
|00005430| 72 67 20 22 7d 7b 22 20 | 5b 6a 6f 69 6e 20 24 72 |rg "}{" |[join $r|
|00005440| 65 73 74 41 72 67 73 20 | 2f 5d 20 22 7d 22 0d 09 |estArgs |/] "}"..|
|00005450| 09 09 69 66 20 7b 24 6c | 65 6e 20 3e 20 32 7d 20 |..if {$l|en > 2} |
|00005460| 7b 6d 65 73 73 61 67 65 | 20 22 62 65 77 61 72 65 |{message| "beware|
|00005470| 20 6f 66 20 6d 75 6c 74 | 69 70 6c 65 20 2f 22 7d | of mult|iple /"}|
|00005480| 0d 09 09 7d 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |...}..} |else {..|
|00005490| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 5c 5c 66 |.insertT|ext "\\f|
|000054a0| 72 61 63 7b a5 7d 7b a5 | 7d a5 22 0d 09 09 67 6f |rac{.}{.|}."...go|
|000054b0| 74 6f 20 24 63 75 72 72 | 65 6e 74 50 6f 73 0d 09 |to $curr|entPos..|
|000054c0| 09 6e 65 78 74 54 61 62 | 53 74 6f 70 0d 09 09 6d |.nextTab|Stop...m|
|000054d0| 65 73 73 61 67 65 20 22 | 65 6e 74 65 72 20 6e 75 |essage "|enter nu|
|000054e0| 6d 65 72 61 74 6f 72 22 | 0d 09 7d 0d 7d 0d 70 72 |merator"|..}.}.pr|
|000054f0| 6f 63 20 73 71 75 61 72 | 65 52 6f 6f 74 20 7b 7d |oc squar|eRoot {}|
|00005500| 20 7b 0d 09 69 66 20 7b | 5b 77 72 61 70 4f 62 6a | {..if {|[wrapObj|
|00005510| 65 63 74 20 22 5c 5c 73 | 71 72 74 7b 22 20 22 7d |ect "\\s|qrt{" "}|
|00005520| a5 22 5d 7d 20 74 68 65 | 6e 20 7b 0d 09 09 6d 65 |."]} the|n {...me|
|00005530| 73 73 61 67 65 20 22 73 | 71 75 61 72 65 20 72 6f |ssage "s|quare ro|
|00005540| 6f 74 20 73 65 74 22 0d | 09 7d 20 65 6c 73 65 20 |ot set".|.} else |
|00005550| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 65 6e 74 |{...mess|age "ent|
|00005560| 65 72 20 66 6f 72 6d 75 | 6c 61 22 0d 09 7d 0d 7d |er formu|la"..}.}|
|00005570| 0d 70 72 6f 63 20 6e 74 | 68 52 6f 6f 74 20 7b 7d |.proc nt|hRoot {}|
|00005580| 20 7b 0d 09 69 66 20 7b | 5b 77 72 61 70 4f 62 6a | {..if {|[wrapObj|
|00005590| 65 63 74 20 22 5c 5c 73 | 71 72 74 5c 5b a5 5c 5d |ect "\\s|qrt\[.\]|
|000055a0| 7b 22 20 22 7d a5 22 5d | 7d 20 74 68 65 6e 20 7b |{" "}."]|} then {|
|000055b0| 0d 09 09 6d 65 73 73 61 | 67 65 20 22 65 6e 74 65 |...messa|ge "ente|
|000055c0| 72 20 72 6f 6f 74 22 0d | 09 7d 20 65 6c 73 65 20 |r root".|.} else |
|000055d0| 7b 0d 09 09 6d 65 73 73 | 61 67 65 20 22 65 6e 74 |{...mess|age "ent|
|000055e0| 65 72 20 72 6f 6f 74 2c | 20 74 68 65 6e 20 66 6f |er root,| then fo|
|000055f0| 72 6d 75 6c 61 22 0d 09 | 7d 0d 7d 0d 70 72 6f 63 |rmula"..|}.}.proc|
|00005600| 20 6f 6e 65 50 61 72 61 | 6d 65 74 65 72 20 7b 7d | onePara|meter {}|
|00005610| 20 7b 0d 09 63 61 74 63 | 68 20 7b 70 72 6f 6d 70 | {..catc|h {promp|
|00005620| 74 20 22 43 6f 6d 6d 61 | 6e 64 20 6e 61 6d 65 3f |t "Comma|nd name?|
|00005630| 22 20 22 73 71 72 74 22 | 7d 20 63 6f 6d 6d 61 6e |" "sqrt"|} comman|
|00005640| 64 4e 61 6d 65 0d 09 69 | 66 20 7b 24 63 6f 6d 6d |dName..i|f {$comm|
|00005650| 61 6e 64 4e 61 6d 65 20 | 21 3d 20 22 63 61 6e 63 |andName |!= "canc|
|00005660| 65 6c 22 7d 20 7b 77 72 | 61 70 4f 62 6a 65 63 74 |el"} {wr|apObject|
|00005670| 20 22 5c 5c 24 63 6f 6d | 6d 61 6e 64 4e 61 6d 65 | "\\$com|mandName|
|00005680| 7b 22 20 22 7d a5 22 7d | 0d 7d 0d 70 72 6f 63 20 |{" "}."}|.}.proc |
|00005690| 74 77 6f 50 61 72 61 6d | 65 74 65 72 73 20 7b 7d |twoParam|eters {}|
|000056a0| 20 7b 0d 09 63 61 74 63 | 68 20 7b 70 72 6f 6d 70 | {..catc|h {promp|
|000056b0| 74 20 22 43 6f 6d 6d 61 | 6e 64 20 6e 61 6d 65 3f |t "Comma|nd name?|
|000056c0| 22 20 22 66 72 61 63 22 | 7d 20 63 6f 6d 6d 61 6e |" "frac"|} comman|
|000056d0| 64 4e 61 6d 65 0d 09 69 | 66 20 7b 24 63 6f 6d 6d |dName..i|f {$comm|
|000056e0| 61 6e 64 4e 61 6d 65 20 | 21 3d 20 22 63 61 6e 63 |andName |!= "canc|
|000056f0| 65 6c 22 7d 20 74 68 65 | 6e 20 7b 0d 09 09 73 65 |el"} the|n {...se|
|00005700| 74 20 63 75 72 72 65 6e | 74 50 6f 73 20 5b 67 65 |t curren|tPos [ge|
|00005710| 74 50 6f 73 5d 0d 09 09 | 69 66 20 7b 5b 69 6e 73 |tPos]...|if {[ins|
|00005720| 65 72 74 4f 62 6a 65 63 | 74 20 22 5c 5c 24 63 6f |ertObjec|t "\\$co|
|00005730| 6d 6d 61 6e 64 4e 61 6d | 65 7b a5 7d 7b a5 7d a5 |mmandNam|e{.}{.}.|
|00005740| 22 5d 7d 20 74 68 65 6e | 20 7b 0d 09 09 09 67 6f |"]} then| {....go|
|00005750| 74 6f 20 24 63 75 72 72 | 65 6e 74 50 6f 73 0d 09 |to $curr|entPos..|
|00005760| 09 09 6e 65 78 74 54 61 | 62 53 74 6f 70 0d 09 09 |..nextTa|bStop...|
|00005770| 7d 0d 09 7d 0d 7d 0d 0d | 23 20 47 72 65 65 6b 3a |}..}.}..|# Greek:|
|00005780| 0d 70 72 6f 63 20 61 6c | 70 68 61 20 7b 7d 20 7b |.proc al|pha {} {|
|00005790| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|000057a0| 61 6c 70 68 61 22 7d 0d | 70 72 6f 63 20 62 65 74 |alpha"}.|proc bet|
|000057b0| 61 20 7b 7d 20 7b 69 6e | 73 65 72 74 4f 62 6a 65 |a {} {in|sertObje|
|000057c0| 63 74 20 22 5c 5c 62 65 | 74 61 22 7d 0d 70 72 6f |ct "\\be|ta"}.pro|
|000057d0| 63 20 67 61 6d 6d 61 20 | 7b 7d 20 7b 69 6e 73 65 |c gamma |{} {inse|
|000057e0| 72 74 4f 62 6a 65 63 74 | 20 22 5c 5c 67 61 6d 6d |rtObject| "\\gamm|
|000057f0| 61 22 7d 0d 70 72 6f 63 | 20 64 65 6c 74 61 20 7b |a"}.proc| delta {|
|00005800| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|00005810| 22 5c 5c 64 65 6c 74 61 | 22 7d 0d 70 72 6f 63 20 |"\\delta|"}.proc |
|00005820| 65 70 73 69 6c 6f 6e 20 | 7b 7d 20 7b 69 6e 73 65 |epsilon |{} {inse|
|00005830| 72 74 4f 62 6a 65 63 74 | 20 22 5c 5c 65 70 73 69 |rtObject| "\\epsi|
|00005840| 6c 6f 6e 22 7d 0d 70 72 | 6f 63 20 7a 65 74 61 20 |lon"}.pr|oc zeta |
|00005850| 7b 7d 20 7b 69 6e 73 65 | 72 74 4f 62 6a 65 63 74 |{} {inse|rtObject|
|00005860| 20 22 5c 5c 7a 65 74 61 | 22 7d 0d 70 72 6f 63 20 | "\\zeta|"}.proc |
|00005870| 65 74 61 20 7b 7d 20 7b | 69 6e 73 65 72 74 4f 62 |eta {} {|insertOb|
|00005880| 6a 65 63 74 20 22 5c 5c | 65 74 61 22 7d 0d 70 72 |ject "\\|eta"}.pr|
|00005890| 6f 63 20 74 68 65 74 61 | 20 7b 7d 20 7b 69 6e 73 |oc theta| {} {ins|
|000058a0| 65 72 74 4f 62 6a 65 63 | 74 20 22 5c 5c 74 68 65 |ertObjec|t "\\the|
|000058b0| 74 61 22 7d 0d 70 72 6f | 63 20 69 6f 74 61 20 7b |ta"}.pro|c iota {|
|000058c0| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|000058d0| 22 5c 5c 69 6f 74 61 22 | 7d 0d 70 72 6f 63 20 6b |"\\iota"|}.proc k|
|000058e0| 61 70 70 61 20 7b 7d 20 | 7b 69 6e 73 65 72 74 4f |appa {} |{insertO|
|000058f0| 62 6a 65 63 74 20 22 5c | 5c 6b 61 70 70 61 22 7d |bject "\|\kappa"}|
|00005900| 0d 70 72 6f 63 20 6c 61 | 6d 62 64 61 20 7b 7d 20 |.proc la|mbda {} |
|00005910| 7b 69 6e 73 65 72 74 4f | 62 6a 65 63 74 20 22 5c |{insertO|bject "\|
|00005920| 5c 6c 61 6d 62 64 61 22 | 7d 0d 70 72 6f 63 20 6d |\lambda"|}.proc m|
|00005930| 75 20 7b 7d 20 7b 69 6e | 73 65 72 74 4f 62 6a 65 |u {} {in|sertObje|
|00005940| 63 74 20 22 5c 5c 6d 75 | 22 7d 0d 70 72 6f 63 20 |ct "\\mu|"}.proc |
|00005950| 6e 75 20 7b 7d 20 7b 69 | 6e 73 65 72 74 4f 62 6a |nu {} {i|nsertObj|
|00005960| 65 63 74 20 22 5c 5c 6e | 75 22 7d 0d 70 72 6f 63 |ect "\\n|u"}.proc|
|00005970| 20 78 69 20 7b 7d 20 7b | 69 6e 73 65 72 74 4f 62 | xi {} {|insertOb|
|00005980| 6a 65 63 74 20 22 5c 5c | 78 69 22 7d 0d 70 72 6f |ject "\\|xi"}.pro|
|00005990| 63 20 70 69 20 7b 7d 20 | 7b 69 6e 73 65 72 74 4f |c pi {} |{insertO|
|000059a0| 62 6a 65 63 74 20 22 5c | 5c 70 69 22 7d 0d 70 72 |bject "\|\pi"}.pr|
|000059b0| 6f 63 20 72 68 6f 20 7b | 7d 20 7b 69 6e 73 65 72 |oc rho {|} {inser|
|000059c0| 74 4f 62 6a 65 63 74 20 | 22 5c 5c 72 68 6f 22 7d |tObject |"\\rho"}|
|000059d0| 0d 70 72 6f 63 20 73 69 | 67 6d 61 20 7b 7d 20 7b |.proc si|gma {} {|
|000059e0| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|000059f0| 73 69 67 6d 61 22 7d 0d | 70 72 6f 63 20 74 61 75 |sigma"}.|proc tau|
|00005a00| 20 7b 7d 20 7b 69 6e 73 | 65 72 74 4f 62 6a 65 63 | {} {ins|ertObjec|
|00005a10| 74 20 22 5c 5c 74 61 75 | 22 7d 0d 70 72 6f 63 20 |t "\\tau|"}.proc |
|00005a20| 75 70 73 69 6c 6f 6e 20 | 7b 7d 20 7b 69 6e 73 65 |upsilon |{} {inse|
|00005a30| 72 74 4f 62 6a 65 63 74 | 20 22 5c 5c 75 70 73 69 |rtObject| "\\upsi|
|00005a40| 6c 6f 6e 22 7d 0d 70 72 | 6f 63 20 70 68 69 20 7b |lon"}.pr|oc phi {|
|00005a50| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|00005a60| 22 5c 5c 70 68 69 22 7d | 0d 70 72 6f 63 20 63 68 |"\\phi"}|.proc ch|
|00005a70| 69 20 7b 7d 20 7b 69 6e | 73 65 72 74 4f 62 6a 65 |i {} {in|sertObje|
|00005a80| 63 74 20 22 5c 5c 63 68 | 69 22 7d 0d 70 72 6f 63 |ct "\\ch|i"}.proc|
|00005a90| 20 70 73 69 20 7b 7d 20 | 7b 69 6e 73 65 72 74 4f | psi {} |{insertO|
|00005aa0| 62 6a 65 63 74 20 22 5c | 5c 70 73 69 22 7d 0d 70 |bject "\|\psi"}.p|
|00005ab0| 72 6f 63 20 6f 6d 65 67 | 61 20 7b 7d 20 7b 69 6e |roc omeg|a {} {in|
|00005ac0| 73 65 72 74 4f 62 6a 65 | 63 74 20 22 5c 5c 6f 6d |sertObje|ct "\\om|
|00005ad0| 65 67 61 22 7d 0d 0d 70 | 72 6f 63 20 63 61 70 47 |ega"}..p|roc capG|
|00005ae0| 61 6d 6d 61 20 7b 7d 20 | 7b 69 6e 73 65 72 74 4f |amma {} |{insertO|
|00005af0| 62 6a 65 63 74 20 22 5c | 5c 47 61 6d 6d 61 22 7d |bject "\|\Gamma"}|
|00005b00| 0d 70 72 6f 63 20 63 61 | 70 44 65 6c 74 61 20 7b |.proc ca|pDelta {|
|00005b10| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|00005b20| 22 5c 5c 44 65 6c 74 61 | 22 7d 0d 70 72 6f 63 20 |"\\Delta|"}.proc |
|00005b30| 63 61 70 54 68 65 74 61 | 20 7b 7d 20 7b 69 6e 73 |capTheta| {} {ins|
|00005b40| 65 72 74 4f 62 6a 65 63 | 74 20 22 5c 5c 54 68 65 |ertObjec|t "\\The|
|00005b50| 74 61 22 7d 0d 70 72 6f | 63 20 63 61 70 4c 61 6d |ta"}.pro|c capLam|
|00005b60| 62 64 61 20 7b 7d 20 7b | 69 6e 73 65 72 74 4f 62 |bda {} {|insertOb|
|00005b70| 6a 65 63 74 20 22 5c 5c | 4c 61 6d 62 64 61 22 7d |ject "\\|Lambda"}|
|00005b80| 0d 70 72 6f 63 20 63 61 | 70 58 69 20 7b 7d 20 7b |.proc ca|pXi {} {|
|00005b90| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|00005ba0| 58 69 22 7d 0d 70 72 6f | 63 20 63 61 70 50 69 20 |Xi"}.pro|c capPi |
|00005bb0| 7b 7d 20 7b 69 6e 73 65 | 72 74 4f 62 6a 65 63 74 |{} {inse|rtObject|
|00005bc0| 20 22 5c 5c 50 69 22 7d | 0d 70 72 6f 63 20 63 61 | "\\Pi"}|.proc ca|
|00005bd0| 70 53 69 67 6d 61 20 7b | 7d 20 7b 69 6e 73 65 72 |pSigma {|} {inser|
|00005be0| 74 4f 62 6a 65 63 74 20 | 22 5c 5c 53 69 67 6d 61 |tObject |"\\Sigma|
|00005bf0| 22 7d 0d 70 72 6f 63 20 | 63 61 70 55 70 73 69 6c |"}.proc |capUpsil|
|00005c00| 6f 6e 20 7b 7d 20 7b 69 | 6e 73 65 72 74 4f 62 6a |on {} {i|nsertObj|
|00005c10| 65 63 74 20 22 5c 5c 55 | 70 73 69 6c 6f 6e 22 7d |ect "\\U|psilon"}|
|00005c20| 0d 70 72 6f 63 20 63 61 | 70 50 68 69 20 7b 7d 20 |.proc ca|pPhi {} |
|00005c30| 7b 69 6e 73 65 72 74 4f | 62 6a 65 63 74 20 22 5c |{insertO|bject "\|
|00005c40| 5c 50 68 69 22 7d 0d 70 | 72 6f 63 20 63 61 70 50 |\Phi"}.p|roc capP|
|00005c50| 73 69 20 7b 7d 20 7b 69 | 6e 73 65 72 74 4f 62 6a |si {} {i|nsertObj|
|00005c60| 65 63 74 20 22 5c 5c 50 | 73 69 22 7d 0d 70 72 6f |ect "\\P|si"}.pro|
|00005c70| 63 20 63 61 70 4f 6d 65 | 67 61 20 7b 7d 20 7b 69 |c capOme|ga {} {i|
|00005c80| 6e 73 65 72 74 4f 62 6a | 65 63 74 20 22 5c 5c 4f |nsertObj|ect "\\O|
|00005c90| 6d 65 67 61 22 7d 0d 0d | 70 72 6f 63 20 76 61 72 |mega"}..|proc var|
|00005ca0| 45 70 73 69 6c 6f 6e 20 | 7b 7d 20 7b 69 6e 73 65 |Epsilon |{} {inse|
|00005cb0| 72 74 4f 62 6a 65 63 74 | 20 22 5c 5c 76 61 72 65 |rtObject| "\\vare|
|00005cc0| 70 73 69 6c 6f 6e 22 7d | 0d 70 72 6f 63 20 76 61 |psilon"}|.proc va|
|00005cd0| 72 54 68 65 74 61 20 7b | 7d 20 7b 69 6e 73 65 72 |rTheta {|} {inser|
|00005ce0| 74 4f 62 6a 65 63 74 20 | 22 5c 5c 76 61 72 74 68 |tObject |"\\varth|
|00005cf0| 65 74 61 22 7d 0d 70 72 | 6f 63 20 76 61 72 50 69 |eta"}.pr|oc varPi|
|00005d00| 20 7b 7d 20 7b 69 6e 73 | 65 72 74 4f 62 6a 65 63 | {} {ins|ertObjec|
|00005d10| 74 20 22 5c 5c 76 61 72 | 70 69 22 7d 0d 70 72 6f |t "\\var|pi"}.pro|
|00005d20| 63 20 76 61 72 52 68 6f | 20 7b 7d 20 7b 69 6e 73 |c varRho| {} {ins|
|00005d30| 65 72 74 4f 62 6a 65 63 | 74 20 22 5c 5c 76 61 72 |ertObjec|t "\\var|
|00005d40| 72 68 6f 22 7d 0d 70 72 | 6f 63 20 76 61 72 53 69 |rho"}.pr|oc varSi|
|00005d50| 67 6d 61 20 7b 7d 20 7b | 69 6e 73 65 72 74 4f 62 |gma {} {|insertOb|
|00005d60| 6a 65 63 74 20 22 5c 5c | 76 61 72 73 69 67 6d 61 |ject "\\|varsigma|
|00005d70| 22 7d 0d 70 72 6f 63 20 | 76 61 72 50 68 69 20 7b |"}.proc |varPhi {|
|00005d80| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|00005d90| 22 5c 5c 76 61 72 70 68 | 69 22 7d 0d 0d 23 20 42 |"\\varph|i"}..# B|
|00005da0| 69 6e 61 72 79 20 4f 70 | 73 3a 0d 70 72 6f 63 20 |inary Op|s:.proc |
|00005db0| 70 6c 75 73 4f 72 4d 69 | 6e 75 73 20 7b 7d 20 7b |plusOrMi|nus {} {|
|00005dc0| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|00005dd0| 70 6d 22 7d 0d 70 72 6f | 63 20 6d 69 6e 75 73 4f |pm"}.pro|c minusO|
|00005de0| 72 50 6c 75 73 20 7b 7d | 20 7b 69 6e 73 65 72 74 |rPlus {}| {insert|
|00005df0| 4f 62 6a 65 63 74 20 22 | 5c 5c 6d 70 22 7d 0d 70 |Object "|\\mp"}.p|
|00005e00| 72 6f 63 20 6d 75 6c 74 | 69 70 6c 79 20 7b 7d 20 |roc mult|iply {} |
|00005e10| 7b 69 6e 73 65 72 74 4f | 62 6a 65 63 74 20 22 5c |{insertO|bject "\|
|00005e20| 5c 74 69 6d 65 73 22 7d | 0d 70 72 6f 63 20 64 69 |\times"}|.proc di|
|00005e30| 76 69 64 65 20 7b 7d 20 | 7b 69 6e 73 65 72 74 4f |vide {} |{insertO|
|00005e40| 62 6a 65 63 74 20 22 5c | 5c 64 69 76 22 7d 0d 70 |bject "\|\div"}.p|
|00005e50| 72 6f 63 20 61 73 74 65 | 72 69 73 6b 20 7b 7d 20 |roc aste|risk {} |
|00005e60| 7b 69 6e 73 65 72 74 4f | 62 6a 65 63 74 20 22 5c |{insertO|bject "\|
|00005e70| 5c 61 73 74 22 7d 0d 70 | 72 6f 63 20 73 74 61 72 |\ast"}.p|roc star|
|00005e80| 20 7b 7d 20 7b 69 6e 73 | 65 72 74 4f 62 6a 65 63 | {} {ins|ertObjec|
|00005e90| 74 20 22 5c 5c 73 74 61 | 72 22 7d 0d 70 72 6f 63 |t "\\sta|r"}.proc|
|00005ea0| 20 63 69 72 63 6c 65 20 | 7b 7d 20 7b 69 6e 73 65 | circle |{} {inse|
|00005eb0| 72 74 4f 62 6a 65 63 74 | 20 22 5c 5c 63 69 72 63 |rtObject| "\\circ|
|00005ec0| 22 7d 0d 70 72 6f 63 20 | 62 69 67 43 69 72 63 6c |"}.proc |bigCircl|
|00005ed0| 65 20 7b 7d 20 7b 69 6e | 73 65 72 74 4f 62 6a 65 |e {} {in|sertObje|
|00005ee0| 63 74 20 22 5c 5c 62 69 | 67 63 69 72 63 22 7d 0d |ct "\\bi|gcirc"}.|
|00005ef0| 70 72 6f 63 20 62 75 6c | 6c 65 74 20 7b 7d 20 7b |proc bul|let {} {|
|00005f00| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|00005f10| 62 75 6c 6c 65 74 22 7d | 0d 70 72 6f 63 20 63 65 |bullet"}|.proc ce|
|00005f20| 6e 74 65 72 44 6f 74 20 | 7b 7d 20 7b 69 6e 73 65 |nterDot |{} {inse|
|00005f30| 72 74 4f 62 6a 65 63 74 | 20 22 5c 5c 63 64 6f 74 |rtObject| "\\cdot|
|00005f40| 22 7d 0d 70 72 6f 63 20 | 69 6e 74 65 72 73 65 63 |"}.proc |intersec|
|00005f50| 74 69 6f 6e 20 7b 7d 20 | 7b 69 6e 73 65 72 74 4f |tion {} |{insertO|
|00005f60| 62 6a 65 63 74 20 22 5c | 5c 63 61 70 22 7d 0d 70 |bject "\|\cap"}.p|
|00005f70| 72 6f 63 20 75 6e 69 6f | 6e 20 7b 7d 20 7b 69 6e |roc unio|n {} {in|
|00005f80| 73 65 72 74 4f 62 6a 65 | 63 74 20 22 5c 5c 63 75 |sertObje|ct "\\cu|
|00005f90| 70 22 7d 0d 70 72 6f 63 | 20 6c 6f 67 69 63 61 6c |p"}.proc| logical|
|00005fa0| 41 6e 64 20 7b 7d 20 7b | 69 6e 73 65 72 74 4f 62 |And {} {|insertOb|
|00005fb0| 6a 65 63 74 20 22 5c 5c | 77 65 64 67 65 22 7d 0d |ject "\\|wedge"}.|
|00005fc0| 70 72 6f 63 20 6c 6f 67 | 69 63 61 6c 4f 72 20 7b |proc log|icalOr {|
|00005fd0| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|00005fe0| 22 5c 5c 76 65 65 22 7d | 0d 70 72 6f 63 20 73 65 |"\\vee"}|.proc se|
|00005ff0| 74 4d 69 6e 75 73 20 7b | 7d 20 7b 69 6e 73 65 72 |tMinus {|} {inser|
|00006000| 74 4f 62 6a 65 63 74 20 | 22 5c 5c 73 65 74 6d 69 |tObject |"\\setmi|
|00006010| 6e 75 73 22 7d 0d 0d 23 | 20 52 65 6c 61 74 69 6f |nus"}..#| Relatio|
|00006020| 6e 73 3a 0d 70 72 6f 63 | 20 6e 6f 74 45 71 75 61 |ns:.proc| notEqua|
|00006030| 6c 20 7b 7d 20 7b 69 6e | 73 65 72 74 4f 62 6a 65 |l {} {in|sertObje|
|00006040| 63 74 20 22 5c 5c 6e 65 | 71 22 7d 0d 70 72 6f 63 |ct "\\ne|q"}.proc|
|00006050| 20 6c 65 73 73 4f 72 45 | 71 75 61 6c 20 7b 7d 20 | lessOrE|qual {} |
|00006060| 7b 69 6e 73 65 72 74 4f | 62 6a 65 63 74 20 22 5c |{insertO|bject "\|
|00006070| 5c 6c 65 71 22 7d 0d 70 | 72 6f 63 20 67 72 65 61 |\leq"}.p|roc grea|
|00006080| 74 65 72 4f 72 45 71 75 | 61 6c 20 7b 7d 20 7b 69 |terOrEqu|al {} {i|
|00006090| 6e 73 65 72 74 4f 62 6a | 65 63 74 20 22 5c 5c 67 |nsertObj|ect "\\g|
|000060a0| 65 71 22 7d 0d 70 72 6f | 63 20 73 75 62 73 65 74 |eq"}.pro|c subset|
|000060b0| 20 7b 7d 20 7b 69 6e 73 | 65 72 74 4f 62 6a 65 63 | {} {ins|ertObjec|
|000060c0| 74 20 22 5c 5c 73 75 62 | 73 65 74 22 7d 0d 70 72 |t "\\sub|set"}.pr|
|000060d0| 6f 63 20 73 75 70 65 72 | 73 65 74 20 7b 7d 20 7b |oc super|set {} {|
|000060e0| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|000060f0| 73 75 70 73 65 74 22 7d | 0d 70 72 6f 63 20 73 75 |supset"}|.proc su|
|00006100| 62 73 65 74 4f 72 45 71 | 75 61 6c 20 7b 7d 20 7b |bsetOrEq|ual {} {|
|00006110| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|00006120| 73 75 62 73 65 74 65 71 | 22 7d 0d 70 72 6f 63 20 |subseteq|"}.proc |
|00006130| 73 75 70 65 72 73 65 74 | 4f 72 45 71 75 61 6c 20 |superset|OrEqual |
|00006140| 7b 7d 20 7b 69 6e 73 65 | 72 74 4f 62 6a 65 63 74 |{} {inse|rtObject|
|00006150| 20 22 5c 5c 73 75 70 73 | 65 74 65 71 22 7d 0d 70 | "\\sups|eteq"}.p|
|00006160| 72 6f 63 20 65 6c 65 6d | 65 6e 74 4f 66 20 7b 7d |roc elem|entOf {}|
|00006170| 20 7b 69 6e 73 65 72 74 | 4f 62 6a 65 63 74 20 22 | {insert|Object "|
|00006180| 5c 5c 69 6e 22 7d 0d 70 | 72 6f 63 20 65 71 75 69 |\\in"}.p|roc equi|
|00006190| 76 61 6c 65 6e 74 20 7b | 7d 20 7b 69 6e 73 65 72 |valent {|} {inser|
|000061a0| 74 4f 62 6a 65 63 74 20 | 22 5c 5c 65 71 75 69 76 |tObject |"\\equiv|
|000061b0| 22 7d 0d 70 72 6f 63 20 | 73 69 6d 69 6c 61 72 20 |"}.proc |similar |
|000061c0| 7b 7d 20 7b 69 6e 73 65 | 72 74 4f 62 6a 65 63 74 |{} {inse|rtObject|
|000061d0| 20 22 5c 5c 73 69 6d 22 | 7d 0d 70 72 6f 63 20 73 | "\\sim"|}.proc s|
|000061e0| 69 6d 69 6c 61 72 45 71 | 75 61 6c 20 7b 7d 20 7b |imilarEq|ual {} {|
|000061f0| 69 6e 73 65 72 74 4f 62 | 6a 65 63 74 20 22 5c 5c |insertOb|ject "\\|
|00006200| 73 69 6d 65 71 22 7d 0d | 70 72 6f 63 20 64 6f 74 |simeq"}.|proc dot|
|00006210| 45 71 75 61 6c 20 7b 7d | 20 7b 69 6e 73 65 72 74 |Equal {}| {insert|
|00006220| 4f 62 6a 65 63 74 20 22 | 5c 5c 64 6f 74 65 71 22 |Object "|\\doteq"|
|00006230| 7d 0d 70 72 6f 63 20 61 | 70 70 72 6f 78 69 6d 61 |}.proc a|pproxima|
|00006240| 74 65 20 7b 7d 20 7b 69 | 6e 73 65 72 74 4f 62 6a |te {} {i|nsertObj|
|00006250| 65 63 74 20 22 5c 5c 61 | 70 70 72 6f 78 22 7d 0d |ect "\\a|pprox"}.|
|00006260| 70 72 6f 63 20 63 6f 6e | 67 72 75 65 6e 74 20 7b |proc con|gruent {|
|00006270| 7d 20 7b 69 6e 73 65 72 | 74 4f 62 6a 65 63 74 20 |} {inser|tObject |
|00006280| 22 5c 5c 63 6f 6e 67 22 | 7d 0d 0d 23 20 4c 61 72 |"\\cong"|}..# Lar|
|00006290| 67 65 20 4f 70 73 3a 0d | 70 72 6f 63 20 69 6e 73 |ge Ops:.|proc ins|
|000062a0| 65 72 74 4c 61 72 67 65 | 4f 70 20 7b 63 6f 6d 6d |ertLarge|Op {comm|
|000062b0| 61 6e 64 4e 61 6d 65 7d | 20 7b 0d 09 73 65 74 20 |andName}| {..set |
|000062c0| 63 75 72 72 65 6e 74 50 | 6f 73 20 5b 67 65 74 50 |currentP|os [getP|
|000062d0| 6f 73 5d 0d 09 69 6e 73 | 65 72 74 54 65 78 74 20 |os]..ins|ertText |
|000062e0| 22 5c 5c 24 63 6f 6d 6d | 61 6e 64 4e 61 6d 65 22 |"\\$comm|andName"|
|000062f0| 0d 09 69 6e 73 65 72 74 | 54 65 78 74 20 22 5f 7b |..insert|Text "_{|
|00006300| a5 7d 5e 7b a5 7d a5 22 | 0d 09 67 6f 74 6f 20 24 |.}^{.}."|..goto $|
|00006310| 63 75 72 72 65 6e 74 50 | 6f 73 0d 09 6e 65 78 74 |currentP|os..next|
|00006320| 54 61 62 53 74 6f 70 0d | 7d 0d 70 72 6f 63 20 73 |TabStop.|}.proc s|
|00006330| 75 6d 20 7b 7d 20 7b 69 | 6e 73 65 72 74 4c 61 72 |um {} {i|nsertLar|
|00006340| 67 65 4f 70 20 22 73 75 | 6d 22 7d 0d 70 72 6f 63 |geOp "su|m"}.proc|
|00006350| 20 70 72 6f 64 75 63 74 | 20 7b 7d 20 7b 69 6e 73 | product| {} {ins|
|00006360| 65 72 74 4c 61 72 67 65 | 4f 70 20 22 70 72 6f 64 |ertLarge|Op "prod|
|00006370| 22 7d 0d 70 72 6f 63 20 | 69 6e 74 65 67 72 61 6c |"}.proc |integral|
|00006380| 20 7b 7d 20 7b 69 6e 73 | 65 72 74 4c 61 72 67 65 | {} {ins|ertLarge|
|00006390| 4f 70 20 22 69 6e 74 22 | 7d 0d 70 72 6f 63 20 62 |Op "int"|}.proc b|
|000063a0| 69 67 55 6e 69 6f 6e 20 | 7b 7d 20 7b 69 6e 73 65 |igUnion |{} {inse|
|000063b0| 72 74 4c 61 72 67 65 4f | 70 20 22 62 69 67 63 75 |rtLargeO|p "bigcu|
|000063c0| 70 22 7d 0d 70 72 6f 63 | 20 62 69 67 49 6e 74 65 |p"}.proc| bigInte|
|000063d0| 72 73 65 63 74 69 6f 6e | 20 7b 7d 20 7b 69 6e 73 |rsection| {} {ins|
|000063e0| 65 72 74 4c 61 72 67 65 | 4f 70 20 22 62 69 67 63 |ertLarge|Op "bigc|
|000063f0| 61 70 22 7d 0d 70 72 6f | 63 20 62 69 67 41 6e 64 |ap"}.pro|c bigAnd|
+--------+-------------------------+-------------------------+--------+--------+